COMMODORE USERS 
TAKE NOTE... 


Software containing the Mind Moves Strategic Brain Games is available 
on a 514" diskette! The software comes with a warranty (if the product is 
defective we will replace it free of charge) as well as a “Forever Guarantee” 
(in case of damage, simply return the diskette with $5 and we'll send youa 
new one). 


QUIKWIT TRIVIA FANS 
TAKE NOTE... 


Did you enjoy the entertainment and challenge of QUIKWIT? Much of the 
game’s appeal is the well written trivia questions from the mind of Penguin 
Dave. We’ve corralled him into creating a brand new disk of questions in his 
legendary style. Each side of the FAMILY *«UN/EXPERT disk contains over 
1000 questions to probe your brain and is available immediately. This 
double-sided disk contains one side with questions suitable for the whole 
family including a section just for youngsters. The other side contains 
questions with the serious trivia fan in mind. A section of super toughies is 
included. 


Interested? 
You bet I am. 


[1 Send me the Mind Moves Strategic Brain Games diskette for my 
Commodore 64 computer! Please send me the 54” diskette (0038-1015A) 
for only $19.95. 

L] Send me the FAMILY FUN/EXPERT 514" diskette (0054-1015A) for 
the Commodore 64 for only $12.95. 

L] I’ve enclosed my check in the amount of ____.. Please rush my 
software to the address below. 

[] Please charge my VISA M/C in the amount of 
and send my software to the address below. 


POCO ett tt te) XP Dale 
Signature 

Name 

Address 

City, State, Zip 


(To expedite your order, phone 1 (800) 547-1842 and charge to your VISA or 
M/C) 


(1 Please send me your free catalog entitled BRAIN FOOD" 


PLACE 
STAMP 
HERE 


dilithium Press 


P.O. Box 606 
Beaverton, OR 97075-0606 


rn 


N 
VV 


Strategy brain games 


for the 
Commodore 64 


1D 


M 


N 
Co Vv E 
Strategy brain games 
for tf 


he 
Commodore 64 


Tom Rugg Phil Feldman 


dP dilithium Press 


Beaverton, Oregon 


1D 


Se 


© 1984 by 32 Plus, Inc. All rights reserved. 


No part of this book may be reproduced in any form or by any means, 
electronic or mechanical, including photocopying, recording or by any 
information storage and retrieval system without permission in writing 
from the publisher, with the following exceptions: any material may be 
copied or transcribed for the nonprofit use of the purchaser, and material 
(not to exceed 300 words and one figure) may be quoted in published 
reviews of this book. 


10 9 8 765 4 3 2 1 


ISBN 0-88056-054-1 


Commodore 64 is a registered trademark of Commodore Business 
Machines. 


dilithium Press is a trademark of dilithium Press, Limited. 


dilithium Press 

8285 S.W. Nimbus 

Suite 151 

Beaverton, Oregon 97005-6401 


CONTENTS 


Preface ¢ ix 


How to Use This Book « xiii 


AEROJAM ° 1 
Control arriving and departing spacecraft in an 
alien space environment 


ESCAPADE ° 23 


Explore the haunted mansion, looking for treasures 


HOTSHOT - 39 


Step up to the challenge of this realistic 
cushion billiards game with color graphics 


QUIKWIT - 65 
Try to outrace your opponent in answering 
multiple choice trivia questions 


MIND MOVES 


QUIKWORD : 93 


Score points by creating a word from the letters in 
your opponent’s word, plus your own letters 


VERTIGO - 115 


A dizzying board game that is as simple to learn as 
tic-tac-toe, but as challenging as checkers or go 


Appendix A °« 131 


Software Backup and Loading Instructions 


Appendix B - 135 
QUIKWIT Cassette Version 


Appendix C « 139 
QUIKWIT Data Files 


Appendix D - 153 
CHECKSUM Program to Check Typing Accuracy 


Bibliography - 161 


Errata Offer - 163 


vi 


ACKNOWLEDGEMENTS 


ur thanks to the many people who have helped us 

during the course of creating this book. Thanks to Lisa 
Trumbo and Gary Swanson for their editorial guidance and 
near-infinite patience, to Maria Katinos and Mykonos P. 
Johnson for their help in inventing program names, to 
Whitney Rugg for her help in program testing, and to Leslie, 
Whitney, Gilda, and Michael for their tolerance, patience, 
and all-around support. 

Special thanks to Dave “Bro” Feldman. His exhaustive 

research for QUIKWIT was most certainly a nontrivial 
pursuit. 


Vili 


PREFACE 


o tell you what this book is about, we need to start by 

looking back at our previous books. In the past few 
years, we have written a group of books that has come to be 
known as the 32 BASIC Programs series. These books have 
been very well received, both by reviewers and by the 
public. Included in the series are such lung-draining titles 
as 32 BASIC Programs for the Apple Computer, 32 BASIC 
Programs for the Atari Computer, and (after adding a few 
more programs) More Than 32 BASIC Programs for the 
Commodore 64 Computer. There are 12 books in the series. 

Our intent with that series of books was to provide an 
alternative for computer owners who were previously faced 
with prices of $20 to $50 for every program they bought. At 
the time of the first book in the series (for the PET 
computer), no one else had published a book with a wide 
variety of programs specifically adapted for a particular 
computer. We decided to do it, and we’re glad. Many others 
have followed since. 

Among the hundreds of letters we have received from 
readers of 32 BASIC Programs, we were pleased to see such 
a large number of them asking if we have another book of 
programs for their computers. (We confess we were also 
pleased to see how many of them said they especially liked 
our books because the programs in them actually worked, 
unlike those in some other books they had bought. But that’s 
another story.) 

Anyway, we decided it was time to do something about all 
of these fine people with such excellent judgment. In 
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writing a new book, we decided to keep the same general 
format, with minor changes. As far as we know, ours are 
still the only books of microcomputer programs with 
complete explanations of the programs. Because so many 
people liked this approach, we have kept it and, in fact, have 
made the explanations even more complete. 

This book differs from the previous series in that all the 
programs here are in one category — games. There are 
several reasons for this. The main one is that games are what 
most of our readers have expressed the most interest in. Oh 
yes, they liked the practical applications, the educational 
programs, the mathematical programs, and so on, but a 
higher percentage of our correspondence was about games 
than anything else. Another reason is that we like games. 
Both of us have been game nuts since childhood — board 
games, card games, word games, athletic games, whatever. 
We were creating computer games for our own pleasure on 
large mainframe computer systems long before home 
computers became available. 

The approach we are taking in Mind Moves is to include 
in it a limited number of intelligent computer games. By 
having a limited number (six), the book can be small enough 
that it is affordable. At the same time, we have been able to 
focus enough attention on each of the six programs that they 
are more sophisticated and enjoyable games than the more 
simplistic ones in 32 BASIC Programs. We've still kept them 
short enough that it’s feasible to type them into your 
computer yourself. However, if you’re not a strong typist 
and you have a disk drive, you might be better off buying 
the book-software package that includes a disk containing 
all the programs and data files. 

The other important aspect of this approach is that Mind 
Moves contains intelligent computer games. You can find 
shoot-em-up arcade games and guess-a-number-from-1-to- 
3 games all over the place, and we think they lose their 
appeal pretty fast. We prefer games that postpone brain 
atrophy, and therefore we have included a variety of 
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different types of games that make you think while you are 
having fun with them. Almost any game forces you to plan 
ahead and improve your analytical skills, but we’ve tried to 
develop ones that do it better than most of the mediocrity 
floating around the marketplace. 


We like the way these games came out and we hope you 
do, too. 


xi 


HOW TO USE THIS BOOK 


| D ach chapter of this book presents a computer program 
that runs on a 64K Commodore 64 computer with either 
a disk drive or a Datasette (cassette) drive. Because of 
complications of using sequential data files with a cassette 
drive, QUIK WIT — our only program with that type of files, 
works reliably only with a disk drive. Although the 
programs use color and many use sound, all are playable in 
black and white and without sound, if necessary. The book 
is sold as a book alone, or as part of a book-software 
package that includes a disk with the programs and data 
files recorded on it. If you buy the book alone, you will have 
to type the programs yourself, and save them on disk or 
cassette. (If you find this tedious, you can buy the disk later 
by itself from the publisher, dilithium Press of Beaverton, 
Oregon.) 

Each chapter of the book is made up of 10 sections, as 
shown below: 


INTRODUCTION. Briefly gives you an overview of the 
game. 


RULES. Explains the rules of the game. 


HOW TO USE IT. Gives details of what happens when you 
run the program. Explains your options and the meanings 
of your responses. 


SAMPLE RUN. Shows photographs of the screen during 
the course of the game. 
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PROGRAM LISTING. This is a listing or printout of the 
BASIC program that causes the computer to play the game. 


EASY CHANGES. Shows you some very simple changes 
you can make to the program to make it work differently, if 
you wish. 


PROGRAMMER’S NOTEBOOK. Explains the design of 
the program, in case you want to understand how it works. 


MAIN ROUTINES. Shows the BASIC line numbers and 
gives a brief explanation of what each major portion of the 
program does. 


MAIN VARIABLES. Explains what each of the key 
variables in the program is used for. 


SUGGESTED PROJECTS. Provides a few ideas for major 
changes you might want to make to the program, if you are 
a tinkerer who understands BASIC pretty well. 


RECOMMENDED PROCEDURE _| 


Here is the way we recommend you try any of the programs 
if you do not have the disk with all the programs pre- 
recorded. (If you do have the disk, refer to Appendix A, the 
Software Backup and Loading Instructions.) 


1. Read through the documentation that came with the 
computer to learn the fundamentals of how to use it. 
This will teach you to set up the computer, turn it on, 
enter a program, correct typing mistakes, and run a 
program. Be sure to read at least the first two chapters 
of the Commodore 64 User’s Guide. 


2. Select the game you would like to try first. As an 
example, let’s say you select VERTIGO. 
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3. Turn the computer on, if you haven’t already. If you 


have been using the computer since you turned it on, 
type the command NEW and press [RETURN] to 
eliminate any previous program that might be in 
memory. Be sure the computer is in uppercase/ graphic 
mode unless the program listing is shown in lowercase. 
Pressing the [Commodore] key with the [SHIFT] key 
switches back and forth between uppercase/graphic 
mode and uppercase/lowercase mode, unless this 
feature has been disabled temporarily by a previous 
program. 


_ Referring to the Program Listing section of the chapter, 
carefully type the program into the computer. Start 
with the top line (line 100) and type one line at a time, 
pressing [RETURN] after each line. If you notice before 
you press [RETURN] that you have made a typing 
mistake, backspace using the [DEL] key, complete the 
program line correctly, then press [RETURN]. If you 
notice after you have pressed [RETURN] that you have 
made a typing mistake, you have two choices for fixing 
the line. Either retype the entire line, or edit the line. To 
edit the line, use the [CRSR] movement keys to position 
the cursor over the area with the mistake, then retype 
the remainder of the line and press [RETURN]. Or, use 
the [INST/DEL] key to insert and delete characters as 
necessary. For details about line editing, refer to the 
first few pages of Chapter 3 of the Commodore 64 User’s 
Guide. 


. Be sure to check your typing very carefully as you go. 
We can’t stress this too strongly. Omitting a single 
keystroke or typing one character incorrectly is all it 
takes to prevent a program from working properly. Be 
especially careful with punctuation characters, such as 
periods, commas, semicolons, colons, and quotation 
marks. Also, be careful not to interchange the letter I 
and the number 1, or the letter O and the number 0. 
Don’t confuse the greater than sign (>) with the less 
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than sign (<). The lowercase 1 (L) and the number 1 
(one) look identical in the programs that are listed in 
lowercase. Be sure to type the right one! The rule to 
follow is: if there is any doubt from the context of the 
line you are typing whether the character is an 1] (L) or 
a 1 (one), it’s a 1 (one). You’ll only find 1’s (L’s) in 
recognizable words and BASIC keywords (such as clr, 
left$, len, and val). 

Another common typing mistake is entirely omitting 
a line from the program. Notice that all the program 
line numbers start with 100 and increase by 10 for each 
program line (110, 120, 130, etc.), except for line 9990 at 
the end. This is to make it easier for you to check back 
for missing lines. 

We've tried to make the program listings as easy as 
possible for you to read and type. In addition to the 
predictable line numbers just mentioned, we have 
included spacing in program lines for easier readability. 
This takes up a few extra bytes of memory and very 
slightly slows down each program, but we believe it to 
be well worth it. Also, we have completely avoided the 
use of special control characters and graphics characters 
in the listings. Most published listings for the Commo- 
dore 64 require you to go through an agonizing 
translation process: you see one thing in the listing; you 
press a key on the keyboard that looks different; then 
you see a third thing on the screen. This is crazy. We 
have programmed around this by using BASIC’s CHR$ 
function, as we did in the 32 BASIC Programs books. 
We are amazed that more programmers don’t have 
equal consideration for their readers. We subscribe to 
the philosophy of “what you see is what you type.” 


. If you are not a risk-taker, you should periodically 
SAVE the partially typed program on disk or cassette. 
If you don’t, Murphy’s Law (“Anything that can go 
wrong, will.”) dictates that you will have a power 
failure just before you finish entering the program 
(after an hour or two of typing). Then you'll have to 
start all over. Instead, SAVE the partial program every 
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20 or 30 minutes or so, using a different name each time 
(e.g., VERTIGO], VERTIGOZ, VERTIGOS3). Then, after 
the power failure (which won't occur, now that you are 
prepared), you can simply LOAD the last partial copy 
you made, and continue your program entry. 


_ When the entire program has been entered, SAVE 
another copy of it on disk or cassette. Then use the LIST 
command to review your typing, looking for the kinds 
of errors mentioned previously. If you find any errors 
and make corrections, SAVE another copy. 


_ Finally, you are ready for the acid test. Type the RUN 
command and press [RETURN]. Is the same thing 
happening that is shown in the Sample Run photos and 
described in the How to Use It section of the chapter? If 
so, congratulations on your typing accuracy. Go on to 
step 10. If not, maintain your composure and go to step 
9. 


_ ‘There are two fundamental types of errors. Let’s call 
them fatal and nonfatal errors. 


Fatal error. A fatal error is one that causes the 
program to stop, generally with a screen display of an 
error message such as SYNTAX ERROR IN 270 or BAD 
SUBSCRIPT ERROR IN 1310. After the program stops, 
BASIC’s normal READY message is displayed. This 
type of error indicates an error severe enough that 
BASIC could not continue with the program. The 
SYNTAX ERROR is the most common, and means that 
BASIC detected a typing error in the line indicated. For 
example, you would get a SYNTAX ERROR IN 140 of 
VERTIGO if you typed the word THAN or THE or THN 
instead of THEN. Lesson one: When you get aSYNTAX 
ERROR in a line, fix the typing error in that line, then 
go back to step 8. 

For any other error message, the course is not so clear. 
You should always check the line indicated to see if 
there is a typing error, but unfortunately, the error is 
often in another line. If you can’t find an error in the 
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line indicated by the error message, check the last 
several lines before that line. If you find no errors there, 
go back and check the whole program — line by line and 
character by character. You can refer to the Error 
Message Appendix in the Commodore 64 User’s Guide, 
but the explanations usually won’t help you pin down 
the typing error unless you are pretty knowledgeable in 
both BASIC and the logic of the program you are 
running. Here are a few clues that may help: 


OUT OF DATA ERROR You probably have a typing error in one or 
more DATA statements in the program, 
perhaps leaving out a comma or typinga 
period instead of a comma. You also may 
have simply omitted a DATA statement. 


BAD SUBSCRIPT Look at the variable name(s) in parenthe- 

ERROR Ses in the line with the error. There may be 
a typing error in another line that deals 
with the same variable name. 


RETURN WITHOUT You may have typed an incorrect line 
GOSUB and number in a GOTO or GOSUB statement 
NEXT WITHOUT FOR somewhere else in the program. 
ERRORS 


Nonfatal error. A nonfatal error is one that does not 
cause the program to end with an error message, but 
causes the program to work incorrectly. A simple 
example: line 1320 of VERTIGO has “GAME.” in it, just 
like that — the word, followed by a period, all within 
quotation marks. Suppose you typed “GUM.” instead. 
The program would still work without a fatal error, but 
the information displayed on the screen would be wrong 
—— a nonfatal error. Other errors can be much trickier to 
find than this, but the best solution generally is to 
simply search through your typed version of the 
program, comparing it line by line and character by 
character with the printed listing in the book. Also see 
the following section entitled For Those with a Disk 
Drive. 
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Keep in mind that you may not be able to duplicate 
the Sample Run exactly because we use randomness in 
the games to prevent them from being exactly the same 
every time you play. You should be able to get the 
program to do the same kinds of things as the Sample 
Run, however. In either event (fatal or nonfatal error), 
find your typing error, fix it, and go back to step 8 (after 
using SAVE to make a new copy on disk or cassette, of 
course). If all else fails (you can’t get the program to 
work right, and you can’t find any typing errors after 
exhaustive checking and rechecking), refer to the 
Errata Offer in the back of the book. 


Welcome to step 10! If you got here, it means things are 
working correctly so far. Keep running the program, 
playing the game as shown in the Sample Run photos 
and as explained in the How To Use It section of the 
chapter. If you find any errors as you continue testing 
the program, go back to step 9, fix the problem, and 
continue. If everything works properly, be sure to save 
this corrected version of the program on disk or tape, 
using the same name as in the book. 


Now read the Easy Changes section of the chapter. Try 
any of these changes that look interesting. If you like 
the changed version better than the original, SAVE it on 
disk or cassette, too, but with a different name. Maybe 
VERTIGOC2 (change 2), for example. 


FOR THOSE WITH A DISK DRIVE 


If you have a disk drive, refer to Appendix D, which shows 
how you can use a program to get your computer to check 
your typing for you. This will be a lot easier than rechecking 
your typing manually, especially if you are not the world’s 
greatest typist or proofreader. 
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ridge to sector traffic controller. Entering control 
territory. Do you read? Request permission to dock 
before early departure. Do you read?” 

Yes, you're a futuristic air traffic controller in charge of 
spacecraft traveling through a busy flight corridor. You 
command these ships from your control console. Action is 
fast and furious. You must make accurate, quick decisions 
to get everyone through efficiently. The pace can be frenetic, 
and the slightest lapse can be costly. It’s a pressure cooker 
environment demanding total concentration. Be sure you're 
well rested and your attention is riveted. 

Give the manned spacecraft highest priority. Pay close 
attention to what’s going on around the refueling dock; this 
area is most critical. And look out for space debris — that 
stuff can be most annoying. 

Maybe this game will give you a deeper appreciation of 
the hectic job of the air traffic controller. At least it’ll be 
something to think about the next time your plane is stuck 
on an airport runway for an hour. 


RULES 


The action takes place on a major east/west artery with 
traffic flowing in both directions. (It’s not clear that com- 
pass directions like east and west have meaning here in 
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outer space but, what the heck, we claim poetic license.) 
Spacecraft enter from either end, must stop for refueling at 
the south-central dock, and exit at the opposite end from 
where they entered. There are two classes of ships — 
manned craft and drones. It’s particularly important that 
you process the manned ships efficiently. 

The playing field is subdivided into square sectors. Only 
one ship can be in any sector at a time. You command each 
ship’s direction of movement. When you feel all are oriented 
properly, it’s time to issue the movement command. 

However, you have only a limited time to do this. The 
ever-present clock on your console ticks away. You must 
issue a movement command within a prescribed time, or one 
will be issued automatically. (After all, spacecraft can’t just 
sit around for too long.) 

New ships enter the arena regularly. The expected arrival 
time of the next ship is shown on your console so you can 
plan for it if you have the time to check. 

After docking for refueling, each craft must leave in its 
intended direction through a proper corridor. So you have 
to position ships correctly for exit too. If things get too 
cluttered, you can zap a ship from your territory as a last 
resort (no telling where it goes). This is a costly option, but 
it sometimes is necessary to avoid worsening problems. It 
also leaves space debris where the ship was, rendering that 
square dangerous for awhile. This is particularly trouble- 
some near the dock, since all ships must pass through that 
region. 

Speaking of space debris, that junk can also appear 
randomly. It must be the funny weather in space. 

Needless to say, a ship-to-ship collision is big trouble. We 
can hardly bear to talk about it. If a manned ship is 
involved, there goes your promotion. 


HOW TO USE IT 


AEROJAM begins with a display of its title screen. Hit a key 
and the screen changes to a program option menu. You use 
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this to select the version of the game you wish to play. 
Choose an easy, medium, or hard game scenario by pressing 
the 1, 2, or 3 key as shown. If you wish to end the program 
to return to our mundane earthly environment, press the 4 
key. 

The game begins with you in front of your control console. 
Let’s discuss what you see. The territory under your com- 
mand is a grid of squares. Each square can be occupied by 
only one spaceship at a time. These spacecraft are color- 
coded. The blue and green ships are eastward bound. They 
enter from the west and must exit to the east. In contrast, 
the red and yellow ships are westward bound. They, of 
course, enter from the east and must exit to the west. The 
yellow and green ships are manned, while the blue and red 
ships are drones. At the beginning of the game, four ships 
enter the playing arena. Their types and locations are 
selected randomly. 

The refueling dock is at the south-central part of the grid. 
Six docking squares are alongside it — two on top and two 
on each side. These squares are recognizable by the two 
little docking latches in each. To dock, a ship must have its 
bow between the two docking latches. 

Each ship enters the playing arena unfueled. This is 
represented by the large open area at the base of such ships. 
After a ship docks and refuels, this area fills up, and the ship 
is ready to exit. 

All action is controlled from the keyboard with keys near 
the right side. Note the flashing white command ball. It 
appears in the upper left grid square when the game begins. 
Move this ball around the playing field to stop on each ship 
that you wish to command. You control this movement with 
the [CRSR] keys at the lower right on your keyboard. All 
four directional movements are possible. You use the 
[SHIFT] key in combination with a [CRSR] key for up or left 
— as usual. The [CRSR] keys repeat, so you can get con- 
tinual movement by simply keeping them depressed. (Don’t 
you get depressed.) With a little practice, you’ll become 
quite adept at moving the command ball quickly to each 
desired location. Note that the ball wraps around to the 


3 


MIND MOVES 


opposite edge of the field when it gets to the end of a row 
or column. 

Each ship is pointed toward the north, east, south, or 
west. When a movement command is issued (more about this 
soon) the ship attempts to move to the adjacent square in 
the direction it’s pointing. To change the orientation of a 
ship, move the command ball to it and press the [f1] key. 
This is the top key of the four function keys at the right of 
the keyboard. The ship rotates 90 degrees clockwise. Press 
[f1] more than once, if necessary, to achieve your desired 
orientation. 

Should you feel the need to remove a ship from the 
playing arena, get the ball over it and press the [f7] key. This 
is the lowermost of the four function keys. You might want 
to remove a ship because things are too hectic or cluttered. 
This costs points, especially for manned ships, but may lead 
to a better score in the long run if you can process other 
ships more effectively. These lost ships do not return, they 
are simply dismissed with a burst of valuable energy to the 
next jurisdiction. Unfortunately, this leaves space debris 
lingering for awhile in the vacated square. You'll recognize 
space debris when you see it. Should another ship try to 
move into debris, it will meet with a similar fate. 

As you may know, debris in space is getting to be quite a 
problem. Seems the environment is polluted everywhere. In 
space, the stuff can drift aimlessly, and you may find some 
debris appearing sporadically on the playing field. Be 
careful. 

At last it’s time to discuss the crucial movement com- 
mand. You can issue one anytime by pressing the [{3] key. 
This is the second from the top of the four function keys. All 
game processes are updated when this command is issued. 
Each ship moves one square if it can. They cannot move 
through the northern or southern boundaries. Should two or 
more ships try to move into the same square, one survives, 
and the other is lost in space. (This is a baddie, try to avoid 
it. It'll cost you lots of points.) However, two ships can pass 
by each other. If two ships are in adjacent squares facing 
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each other, they will move into each other’s squares without 
harm during the movement phase. 

Ships at the dock refuel during this movement phase. The 
top two dock stations are quick, any ship there will be 
refueled immediately. The side stations sometimes take 
longer, perhaps requiring a second or third movement 
period. This time is controlled randomly. After each ship is 
refueled, turn it so it can leave the dock for bigger and 
better things. 

For a ship to successfully exit the playing field, three 
things are required. The ship must be refueled, be pointed 
in the exit direction, and be at a proper exit square. A ship’s 
proper exit square is one marked with a banner of the same 
color as the exiting ship. (Manned and drone spacecraft 
have different exit corridors.) If these conditions are not 
met, the ship just sits there. For each ship that exits 
properly, your score is boosted. The faster you get a ship 
through the playing arena, the larger will be your score. And 
don’t forget that manned craft score higher than drones. 

During the game, everything happens while the console 
clock ticks away. The current time (in seconds) is shown in 
the lower left corner of your video console. Also shown is 
the time of the next required move. If you don’t issue one by 
then, one will be forced upon you at that time. This can be 
most unsettling if you’re not prepared for it. (After all, air 
traffic controllers can’t just sit still all day, especially in 
outer space.) Also shown is the time a space ship next is 
expected to arrive in your territory. 

The area at the lower right of the screen tells you what’s 
going on. You’ll be told when moves are issued, when new 
ships arrive, when new debris is spotted, when collisions 
occur, etc. Your current score is also kept there so you can 
see how you're doing. 

The arrival time of the last ship is indicated at the lower 
left. The game ends when you process all ships out of your 
territory after the last one arrives. Your final score and rank 
are then displayed. Remember them, and see if you can 
improve later. 
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When you press a key as requested at the end of the game, 
the screen goes again to the original title display. You can 
start again or quit to resume earthly delights. 


SAMPLE RUN 


AEROJAMN 


COPYRIGHT 1984 DILITHIUM PRESS 


FROM THE BOOK ’MIND MOVES’ 


BY TOM RUGG AND PHIL FELDMAN 


PRESS A KEY TO BEGIN 


The title screen is displayed. A key must be pressed to begin. 


AEROJAM 


A ROJAN OPTION MENU 
i PLAY EASY GAME 

2 PLAY MEDIUM GAME 

3 PLAY HARD GAME 

4 - END PROGRAM 

PRESS i, 2, 3, OR 4 


The option menu is shown. The player is about to press 2 to start a game 
of medium difficulty. 


The AEROJAM display console is shown five seconds into the game. Four 
ships have entered the control territory for processing. 


MIND MOVES _ 


ve pe ERED 


N 
W+eE Ww Is 


MIND MOVES -- DP 


A typical situation later in the game is shown. Ships are at the dock 
refueling and others are coming and going. Near the center, a ship is in 
danger of colliding with space debris. 


COT 
Tar 


1446 
MOVE ORDERED 


rc224 ER ee a oe 


= 
= 
=z 
o 


The game is almost over. Two ships have yet to exit to conclude the 
session. 


AEROJAM 


A 
EERE; 


Hl 
fi 
i 
i 
Hl 
& 
T 
rt 
" 
LA 


GAME IS OVER 
MIND MOVES -- DP PRESS ANY KEY 


The game ends with a display of the final score and rank. When a key is 
pressed, the title screen will reappear. 


PROGRAM LISTING 


REM: AEROJAM 
REM: COPYRIGHT 1984 DILITHIUM PRESS 

REM: BY PHIL FELDMAN AND TOM RUGG 

POKE 53280,0:POKE 53281,@:PRINT CHRS (147) 
GOTO 23@ 

PRINT HMS;:IF CD=@ THEN 170 

PRINT LEFTS(CDS,CD) ; 

IF CR=8 THEN 1990 

PRINT LEFTS(CRS,CR); 

RETURN 

CR=XP (Q) :CD=YP(Q):GOSUB 15@:RETURN 

CR=24:FOR CD=21 TO 24:GOSUB 15@ 

PRINT LEFTS(SPS,15);:NEXT: RETURN 
J=0:K=0:Q=0:M=0:W=0:N=O0:ND=O0:TF=TI:CD=@0:CR=Q 
NM=@:NV=@: EV=@0:NB=0:P=1:RS="A" 

MX=30 

DIM G(72) ,CG(MX) ,GD (MX) , TV (MX) ,DK (MX) , TE (MX) 
DIM DM(MX) ,XP (72) ,YP (72) 

AUS=CHRS (145) : ARS=CHRS (29) : ADS=CHRS (17) : ALS=CHRS (157) 
HM$=CHRS (19) :ZS=CHRS (32) :CCS=CHRS (152) 

DIM CVS(4),TS(4,4) 

YAS=CHRS (133) : YBS=CHRS (136) : YCS=CHRS (134) 
RVS=CHRS (18) : RFS=CHRS (146) 

FF S=CHRS (157) +CHRS (157) +CHRS (17) 
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340 
350 
368 
376 
389 
398 
400 
410 
420 
4390 
440 
458 
460 
47@ 
48@ 
49@ 
580 
510 
520 
53@ 
5498 
550 
560 
579 
586 
596 
600 
6190 
620 
630 
640 
65¢ 
668 
670 
689 
690 
700 
718 
126 
730 
74 
75@ 
760 
77 
78@ 
790 
880 
81¢ 
820 
830 
840 
858 
860 
870 
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TS (1,1) =RVS+CHRS (169) +ZS+FFS+RFS+CHRS (127) +RV$+Z$+RES 
TS (1,2) =RVS+CHRS (169) +CHRS (127) +FFS+ZS+ZS+RES 

TS (1,3) =RVS+ZS+CHRS (127) +FFS+ZS+RFS+CHRS (169) 
TS(1,4)=RVS+ZS+ZS+FFS+RFS+CHRS (127) +CHRS (169) 

TS (2,1) =RVS+CHRS (169) +CHRS (162) +FFS+RFS+CHRS (127) 
TS(2,1)=TS$(2,1)+CHRS (162) 

TS (2,2) =RVS+CHRS (169) +CHRS (127) +FFS+RFS+CHRS (161)+RVS$ 
TS (2,2) =TS (2,2) +CHRS (161) +RFS 

TS (2,3) =RVS+CHRS (162) +CHRS$ (127) +FFS+RES+CHRS (162) 
TS (2,3) =TS (2,3) +CHRS (169) 

TS (2,4) =CHRS (161)+RVS+CHRS (161) +FFS+RFS+CHRS (127) 
TS (2,4) =TS (2,4) +CHRS (169) 

CVS (1) =CHRS (28) :CVS (2) =CHRS (31) 

CVS (3) =CHRS (158) :CVS (4) =CHRS (30) 

DBS=CHRS (166) +CHRS (166) +FFS+CHRS (166) +CHRS (166) 
CLS=ZS+ZS+FFS+ZS+ZS$ 

AS=""sCRS=AS:CDS=AS:SPS=AS 

FOR K=1 TO 48:CRS=CRS+CHRS (29) :CDS$=CDS+CHRS (17) 
SPS=SPS+CHRS (32) :NEXT 

FOR J=l1 TO 12:FOR K=@ TO 5 

XP (J+K*12) =J*3-1 

YP (J+K*12) =1+K*3:NEXT: NEXT 

DIM PA(6) ,PB(6) 

FOR K=l TO 6:READ PA(K) ,PB(K):NEXT 

DATA 1,12,13,24,25,36,37,48,49,60,61,/2 
DA=1:DB=@.5:DC=@.5 

TF=6@ 

MD=3@: VD=30:BD=35 

EV=900 

GOSUB 3468 

POKE 53280,15:POKE 53281,3:PRINT CHRS$ (147) 
PRINT"A ERO JA M"3SPC(3);"OPTION MENU": PRINT 
PRINT"1 - PLAY EASY GAME":PRINT 

PRINT"2 — PLAY MEDIUM GAME": PRINT 

PRINT"3 -— PLAY HARD GAME":PRINT 

PRINT"4 —- END PROGRAM" 

PRINT: PRINT"PRESS 1, 2, 3, OR 4" 

GET RS:IF LEN(RS)=@ THEN 7190 

IF RS<"1" OR RS>"4" THEN 710 

Q=VAL(RS):ON Q GOTO 748,7808,760,3588 
VD=50:MD=40: BD=5@ 

DA=1:DB=1:DC=9.7:GOTO 789 

VD=20:MD=25:BD=25 

DA=1:DB=@.5:DC=@.2:GOTO 7890 

MD=MD* TF: VD=VD*TF: BD=BD*TF: EV=EV*TE 

NM=MD:NV=VD: NB=BD 

POKE 53288,@:POKE 53281,90: PRINT CHRS (147) ;CCS; 
FFS=CHRS (96) +CHRS (96) 
CS=ZS+ZS:DS=CS:AS=CS:BS=CS:FOR K=1 TO ll 
CS=CS+FFS+CHRS (178) :DS=DS+FFS+CHRS (177) 
AS=AS+FFS+CHRS (123) :BS=B$+Z$+ZS+CHRS (125) :NEXT 
DS=DS+FFS:CS=CS+FFS:AS=AS+FEFS: PRINT C$ 

FOR J=l1 TO 5:PRINT BS:PRINT BS:PRINT AS:NEXT 
PRINT BS: PRINT BS:PRINT DS:CD=12:CR=17:GOSUB 159 
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FOR K=l TO 5:PRINT CHRS (177) ;:NEXT 

CR=16:FOR CD=13 TO 18:GOSUB 159 

PRINT CHRS (179) +LEFTS (SPS,5)+CHRS(171) :NEXT 
CD=18:CR=16:GOSUB 159 

PRINT CHRS (179) ; LEFTS (SPS,5) ;CHRS(171) 
CD=19:CR=16:GOSUB 15@ 

PRINT CHRS (125) ; LEFTS (SPS,5) ; CHRS (125) 
CD=20:CR=16:GOSUB 15@ 

PRINT CHRS(173);:FOR K=1 TO 5:PRINT CHRS (96); : NEXT 
PRINT CHRS (189) :CR=@ 

FOR Q=1 TO 3:CD=6*Q-5:GOSUB 150: PRINT RVS;CVS(1);2ZS 
CR=38:GOSUB 15@:PRINT RVS;CVS (2) ZS 


CD=CD+1:GOSUB 15@:PRINT RVS;CVS(2);ZS 
CR=@:GOSUB 15@:PRINT RVS;CVS (1) ;ZS:NEXT 

FOR Q=1 TO 3:CD=6*Q-2:GOSUB 15@:PRINT RVS;CVS(3);ZS 
CR=38:GOSUB 15@:PRINT RVS;CVS (4) ;ZS 
CD=CD+1:GOSUB 15@:PRINT RVS;CVS(4):ZS 
CR=@:GOSUB 15@:PRINT RVS;CVS (3) ;ZS:NEXT: PRINT orers) 
CD=19:CR=@:GOSUB 15@:PRINT CHRS(159);"TIME IS" 
PRINT"NEXT MOVE";CCS; INT (NM/TF) 

PRINT CHRS (159); "NEXT SHIP";CCS; INT (NV/TE) 
PRINT CHRS (159);"LAST SHIP";CCS; INT (EV/TEF) 
CD=24:CR=@:GOSUB 159 

PRINT CHRS(156);"MIND MOVES -- DP"; 

FOR J=l1 TO 4:CD=12+J:CR=16+J:GOSUB 159 

PRINT MIDS ("AERO",J,1) ;:NEXT 

FOR J=l1 TO 3:CD=16+J:CR=17+3:GOSUB 159 

PRINT MIDS ("JAM",J,1);:NEXT:PRINT CcS; 
CD=21:CR=19:GOSUB 15@:PRINT"N" 
CD=22:CR=17:GOSUB 150: PRINT"W";ZS;CHRS (43) ;ZS;"E" 
CD=23:CR=19:GOSUB 15@:PRINT"S" 
CD=19:CR=24:GOSUB 150: PRINT"SCORE =":GOSUB 337@6 
AS=LEFTS (CRS, 2) : BS=ZS+ZS+CHRS (29) :CS=AS 

FOR K=l TO 12:AS=AS+BS:NEXT 

FOR K=l TO 9: CS=CS+BS$:NEXT:CS=CS+LEFTS (CRS, 6) 
FOR K=1 TO 5:CS=CS+BS:NEXT 

TIS="000000":REM 6 ZEROES 

FOR C=l1 TO 4 

J=INT (6*RND(1))+1:I1F RND(1)>@.5 THEN 12994 

IF G(PA(J))<>@ THEN 12698 

Q=PA (J) :N=N+1:TV(N)=2+2*INT(2*RND(1)) :DM(N)=3:GOTO 13198 
IF G(PB(J))<>@ THEN 1262 

Q=PB(J) :N=N+1:TV(N)=1+2*INT(2*RND(1)):DM(N)=1 
DK (N) =2:CG (N) =Q:G(Q) =N: TE (N) =TI:GOSUB 200 

PRINT CVS (TV(N)) ;TS(DK(N) ,DM(N)) CCS; :NEXT 

GET RS$:CD=19:CR=9:GOSUB 15@:PRINT INT (TI/TF) 
J=1024+XP(P)+40*YP(P) : K=PEEK (J) :POKE J,81 

FOR D=l TO 58:NEXT:POKE J,K 

IF TI>=NM THEN 1819 

IF TI>=NV AND TI<EV THEN 3140 

IF TI>=NB THEN 39029 

IF N=@ AND TIDEV THEN 3389 

IF RS=ARS THEN 1489 

IF RS=ALS THEN 1520 
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1420 IF RS=AUS THEN 1560 

143@ IF RS=ADS THEN 1619 

1440 IF RS=YAS THEN 16698 

1458 IF RS=YBS THEN 1728 

1460 IF RS=YCS THEN 18390 

1478 GOTO 133@ 

1480 P=P+l:IF P=54 THEN P=56:GOTO 13398 

14990 IF P=66 THEN P=68:GOTO 1338 

1500 IF P=73 THEN P=1:GOTO 13390 

1518 GOTO 133@ 

152@ P=P-l1:IF P=55 THEN P=53:GOTO 1338 

1530 IF P=67 THEN P=65:GOTO 1338 

1540 IF P=@ THEN P=72:GOTO 13390 

1558 GOTO 1338 

1560 P=P-12:IF P=-11l1 THEN P=72:GOTO 13398 

1570 IF P<l THEN P=P+71 

1588 IF P=66 THEN P=42:GOTO 133@ 

1590 IF P=67 THEN P=43:GOTO 1339 

1608 GOTO 133@ 

1610 P=P+12:IF P=84 THEN P=1:GOTO 1339 

1620 IF P>72 THEN P=P-71:GOTO 1338 

1630 IF P=54 THEN P=7:GOTO 1338 

1640 IF P=55 THEN P=8:GOTO 1339 

1658 GOTO 13390 

1660 M=G(P):IF M<=@ THEN 17190 

1678 Q=P:GOSUB 209 

168@ DM(M)=DM(M)+l:IF DM(M)=5 THEN DM(M)=1 

1698 Q=DK(M):IF Q=3 THEN Q=2 

170@ PRINT CVS(TV(M));T$(Q,DM(M) );CCS 

1718 GOTO 1339 

172@ J=G(P):1IF J<=@ THEN 1800 

1730 CR=24:CD=23:GOSUB 15@:PRINT LEFTS(SPS$,15);:GOSUB 150 
1740 PRINT CHRS(31);"BYE BYE SHIP";CCS$; 

1758 GOSUB 2938 

1768 Q=P:GOSUB 20@:PRINT DBS 

1778 W=W-30:IF TV(J)>2 THEN W=W-390 

178@ G(Q)=-2:GOSUB 3338:GOSUB 33790 

179@ ND=ND+1:GD(ND)=Q 

1888 GOTO 1330 

1818 GOSUB 21@:CD=21:GOSUB 15@ 

1820 PRINT CHRS (30);"MOVE FORCED";CCS$;:GOTO 1859 
1838 GOSUB 210:CD=21:GOSUB 159@ 

1840 PRINT CHRS(158);"MOVE ORDERED";CC$ 

185@ FOR K=l1 TO 49 STEP 24 

1868 J=G(K):IF J<=@ THEN 1888 

1878 IF TV(J)=l AND DM(J)=1 AND DK(J)=1 THEN GOSUB 2899 
18890 NEXT 

1890 FOR K=13 TO 61 STEP 24:J=G(K):IF J<=@ THEN 19190 
1900 IF TV(J)=3 AND DM(J)=l AND DK(J)=1 THEN GOSUB 2899 
1910 NEXT 

1920 FOR K=12 TO 6@ STEP 24:J=G(K):IF J<=@ THEN 1948 
1938 IF TV(J)=2 AND DM(J)=3 AND DK(J)=1 THEN GOSUB 2899 
1940 NEXT 

1958 FOR K=24 TO 72 STEP 24:J=G(K):IF J<=@8@ THEN 19790 
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IF TV(J)=4 AND DM(J)=3 AND DK(J)=l1 THEN GOSUB 2899 
NEXT 

IF ND=@ THEN 2000 

FOR K=1l TO ND:G(GD(K))=-l:NEXT 

FOR K=2 TO 11:M=G(K):IF M<=@ THEN 2059 

ON DM(M)- GOTO 2020,205080,2030,2049 

CG (M) =CG(M)-1:GOTO 29859 

CG (M)=CG(M)+1:GOTO 20590 

CG (M) =CG (M) +12 

NEXT 

FOR K=l TO 61 STEP 12:M=G(K):IF M<=@ THEN 2129 
ON DM(M) GOTO 2120,2080,2100,2119 

IF K<>1 THEN CG(M) =CG(M)-12 

GOTO 212G 

CG(M) =CG(M)+1:GOTO 2129 

IF K<>61 THEN CG(M) =CG(M) +12 

NEXT 

FOR K=12 TO 72 STEP 12:M=G(K):IF M<=@ THEN 2199 
ON DM(M) GOTO 2158,21608,2190,2180 

CG (M)=CG(M)-1:GOTO 2190 

IF K<>12 THEN CG(M) =CG(M)-12 

GOTO 21990 

IF K<>72 THEN CG(M) =CG(M) +12 

NEXT 

FOR K=62 TO 71:IF K>=65 AND K<=68 THEN 2269 
M=G(K):IF M<=@ THEN 2260 

ON DM(M) GOTO 2230,2248,2250, 22690 

CG (M)=CG(M)-1:GOTO 2260 

CG (M) =CG(M)-12:GOTO 226@ 

CG (M) =CG (M) +1 

NEXT 

FOR K=14 TO 23:GOSUB 296@0:NEXT 

FOR K=26 TO 35:GOSUB 2960:NEXT 

FOR K=38 TO 41:GOSUB 296@:NEXT 

FOR K=44 TO 47:GOSUB 296@0:NEXT 

FOR K=5@ TO 52:GOSUB 2960:NEXT 

FOR K=57 TO 59:GOSUB 296@:NEXT 

FOR K=42 TO 43:M=G(K):IF M<=@ THEN 249@ 

ON DM(M) GOTO 2358,2368,2370,2380 

CG (M)=CG(M)-1:GOTO 240@ 

CG (M)=CG(M)-12:GOTO 240@ 

CG (M)=CG(M)+1:GOTO 240@ 

IF RND(1)>DA THEN 2409 

DK (M) =1 

NEXT 

FOR K=53 TO 65 STEP 12:M=G(K):IF M<=@ THEN 2489 
ON DM(M) GOTO 2430,2440,2450,247@ 

CG (M) =CG(M)-1:GOTO 248@ 

CG (M) =CG(M)-12:GOTO 2489 

IF RND(1)>DB THEN 24820 

DK(M)=1:GOTO 248@ 

IF K=53 THEN CG(M) =CG(M) +12 

NEXT 

FOR K=56 TO 68 STEP 12:M=G(K):IF M<=@ THEN 2569 
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2500 
2519 
2520 
253@ 
254@ 
2556 
2560 
2570 
2580 
2598 
2600 
2619 
2628 
2630 
2640 
2650 
2669 
2670 
2680 
2690 
2700 
2719 
2720 
2730 
274@ 
2758 
27698 
2770 
2786 
2790 
2800 
2819 
2820 
2830 
284@ 
2856 
2860 
2870 
2880 
2890 
2908 
2910 
2920 
2936 
2940 
2950 
2960 
2970 
2980 
2990 
3808 
38619 
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ON DM(M) GOTO 2510,2530,2548,2559 
IF RND(1)>DB THEN 2568 
DK(M)=1:GOTO 2568 
CG(M)=CG(M)-12:GOTO 2568 
CG(M)=CG(M)+1:GOTO 2568 
IF K=56 THEN CG(M) =CG(M)+12 
NEXT 
FOR K=l TO 72:G(K)=@:NEXT 
IF ND=@ THEN 260@ 
FOR K=l1 TO ND:G(GD(K)) =-1l: NEXT 
CD=1:CR=0:GOSUB 15@ 
FOR K=1 TO 4: PRINT AS:PRINT AS:PRINT CHRS (29) :NEXT 
FOR K=1 TO 2:PRINT CS:PRINT C$:PRINT CHRS (29) :NEXT 
IF ND=@ THEN 26590 
FOR K=l1 TO ND:Q=GD(K):GOSUB 200:PRINT DBS$:NEXT 
J=@ 
J=J+1 
IF J>N THEN 28080 
Q=CG(J):IF G(Q)=@8 THEN 2788 
IF G(Q)>@ THEN 27590 
W=W-30:IF TV(J)>2 THEN W=W-39 
GOSUB 3350:G(Q)=-2:GOSUB 337@ 
CR=24:CD=23:GOSUB 15@:PRINT LEFTS(SPS$,15);:GOSUB 158 
PRINT CHRS(28);"SHIP IN DEBRIS";CCS; 
GOSUB 293@:GOTO 26790 
W=W-75:GOSUB 335@:GOSUB 337@0:CR=24:CD=23:GOSUB 158 
PRINT LEFTS(SPS,15);:GOSUB 159 
PRINT CHRS(159);"COLLISION";CCS;:GOSUB 2938:GOTO 267@ 
GOSUB 200:PRINT CVS(TV(J));TS(DK(J) ,DM(J) ) CCS 
G(Q)=J:GOTO 2669 
K=@ 
K=K+l 
IF K>ND THEN 2870 
Q=GD(K):IF G(Q)=-2 THEN 2819 
IF RND(1)>DC THEN 28190 
GD (K) =GD (ND) :G (Q) =@: ND=ND-1 
GOSUB 208:PRINT CLS:GOTO 28290 
NM=TI+MD:CD=20:CR=9:GOSUB 15@:PRINT INT (NM/TF) 
GOTO 1330 
Q=l:IF TV(J)=3 OR TV(J)=4 THEN Q=3 
W=WtINT (Q*2000*TEF/ (TI-TE (J) ) ) 
Q=K:GOSUB 20@0:PRINT CLS 
G(Q)=8:GOSUB 3330:GOSUB 337@:RETURN 
FOR C=1 TO 4:POKE 53265, PEEK(53265) AND 239 
FOR D=l TO 5@:NEXT:POKE 53265,PEEK (53265) OR 16 
FOR D=l1 TO 5@:NEXT:NEXT: RETURN 
M=G(K):IF M<=@ THEN RETURN 
DM(M) GOTO 2980,299@, 3000, 30190 
G(M) =CG (M) -l: RETURN 
G(M) =CG(M)-12:RETURN 
G (M) Sot ae ae ear 
G (M) =CG (M) +12: RETURN 
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3820 
3930 
3048 
3058 
3068 
3870 
3089 
38090 
31989 
3119 
3129 
3138 
3149 
3158 
3168 
3178 
3180 
3199 
3280 
3219 
3220 
3230 
324G 
3258 
3268 
3270 
328@ 
3290 
3300 
3319 
3320 
3330 
3346 
3358 
3368 
3370 
3380 
3399 
3406 
3419 
3426 
3438 
3440 
3450 
3469 
3479 
3488 
3499 
3508 
3519 
3529 
3530 
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TB=T1I+60 

IF TIOTB THEN 31324 

Q=INT (72*RND (1) ) +1 

IF Q=54 OR Q=55 OR Q=66 OR Q=67 THEN 3030 

IF G(Q)<>@ THEN 30390 

IF ND>=MX THEN 31390 

ND=ND+1:GD (ND) =Q:G(Q) =-2 

GOSUB 2@@:PRINT DBS 

CR=24:CD=22:GOSUB 15@0:PRINT LEFTS(SPS,15);:GOSUB 15@ 
PRINT CHRS (129); "NEW DEBRIS";CCS 

NB=TI+BD 

GOTO 13390 

IF N>=MX THEN 33190 

J=INT(6*RND(1))+1:K=J:IF RND(1)>0.5 THEN 3220 
K=K+1l:IF K=7 THEN K=l 

IF G(PA(K))=@ THEN 3200 

IF K=J THEN 3319 

GOTO 316@ 

Q=PA(K) :N=N+1:TV(N) =2+2* INT (2*RND (1)) :DM(N) =3 

GOTO 32790 

K=K+l:IF K=7 THEN Ke=l 

IF G(PB(K))=@0 THEN 32690 

IF K=J THEN 33190 

GOTO 3220 

Q=PB(K) :N=N+1:TV(N) =1+2* INT (2*RND(1)) :DM(N)=1 

DK (N) =2:CG (N) =Q:G(Q) =N: TE (N) =TI 

CR=24:CD=24:GOSUB 15@:PRINT LEFTS(SPS,15);:GOSUB 15@ 
PRINT CHRS (156);"NEW SHIP";CCS; 

GOSUB 200:PRINT CVS(TV(N));TS(DK(N) ,DM(N));CCS 
NV=TI+VD:CD=21:CR=9:GOSUB 15@:PRINT INT (NV/TF) 

GOTO 13390 

TV(J)=TV(N) :TE(J)=TE(N) :DK (J) =DK (N) 

CG (J) =CG (N) :DM(J) =DM(N):G(CG(N) ) =J:N=N-1: RETURN 

TV (J)=TV(N):TE(J)=TE(N) :DK (J)=DK(N) :CG (J) =CG(N) 

DM (J) =DM (N) :N=N-—1: RETURN 

CD=19:CR=31:GOSUB 15@:PRINT W;ALS;2ZS;2S;2Z25;ZS:RETURN 
GOSUB 2938:GOSUB 2938:GOSUB 29324 

GOSUB 210:CD=20:CR=25:GOSUB 159@ 

PRINT" RANK ="SINT(W*100*TE/TI ) 

GET RS:IF LEN(RS)>@ THEN 34190 

CD=22:CR=24:GOSUB 15@:PRINT CHRS (158);"GAME IS OVER" 
CD=24:GOSUB 15@:PRINT CHRS(3@);"PRESS ANY KEY":CGS:s 
GET RS: IF LEN(RS)=@ THEN 34492 

CLR:GOTO 1394 

GET RS:IF LEN(RS)>@ THEN 3460 

PRINT CHRS (142) ;CHRS (8) ;CHRS (147) 

POKE 53280,3:POKE 53281,5:PRINT CHRS(5):PRINT: PRINT 
PRINT TAB(12);"A E RO J A M":PRINT: PRINT 

PRINT TAB(4); "COPYRIGHT 1984 DILITHIUM PRESS" 
PRINT: PRINT: PRINT: PRINT 

PRINT TAB(6);"FROM THE BOOK 'MIND MOVES'":PRINT 
PRINT: PRINT TAB(5);"BY TOM RUGG AND PHIL FELDMAN" 
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3540 FOR J=l TO 6:PRINT:NEXT 

3550 PRINT TAB(9);"PRESS A KEY TO BEGIN" 
3560 GET RS:IF LEN(RS$)=@ THEN 3560 

3570 Q=RND (-TI) : RETURN 

3580 PRINT CHRS (9) ;CHRS (154) ;CHR$(147);:CLR 
3590 POKE 53280,14:POKE 53281,6 

9999 END 


READY. 


EASY CHANGES 


The following Easy Changes affect the difficulty of the game 
by modifying standard settings. If you make any of these 
changes, select main menu option 2 (for a medium game) 
when beginning play. The other menu options may cancel 
some of your changes. 


1. The three keys used to command ship rotation, ship 
zapping, and move updating are controlled by the 
variables YA$, YB$, and YC$ respectively. They are set 
in line 310. You may not like the function keys if you 
find yourself hitting the wrong one occasionally. To use 
the R, Z, and M keys for these functions, change line 310 
to: 


310 YA$=“R”:YB$=“Z”":YC$= “M” 


2. Some random cutoffs are used in the game. The 
variables DA and DB are used to control the chance of 
a successful refueling at the top ports and side ports 
respectively. Set them to one for a sure thing and 
anywhere down to zero for no chance. In a similar 
manner, the variable DC controls the probability of 
debris dissipating. Set them all to a 35 percent chance 
with: 


590 DA=0.35:DB=0.35:DC=0.35 
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3. All times are computed in seconds (earth seconds of 
course.) However, you can control relativity and adjust 
the speed of the clock (slower or faster) by changing the 
value of TF in line 600. To make it run faster and 
produce a more frantic game, try: 


600 TF=30 


4. Fixed time increments are set between forced moves, 
the appearance of new ships, and the appearance of 
random debris. These are set in the variables MD, VD, 
and BD respectively. Changing them dramatically 
affects the game play. For example, lowering the arrival 
time between new ships will clutter the playing field 
quickly. Try various combinations to find one you 
prefer. Making the time between forced moves long, but 
the time between new ships short, will get a game 
version with lots to do but more time to do it. You might 


try: 
610 MD=60:VD =20:BD = 30 
9. The game length is set by the variable EV in line 620. 


It’s currently set to 900 seconds (that’s 15 minutes.) If 
you want a shorter game, like 10 minutes, try: 


620 EV=600 


6. Four spaceships appear at the beginning of the game. 
You can adjust this number up or down by changing 
line 1250. Simply change the 4 at the end of the line to 
any number from 1 to 12. To get six initial spacecraft, 
line 1250 becomes: 


1250 FOR C=1 TO6 
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7. Currently, a maximum of 30 ships are allowed in play 
at one time. This is more than can really be controlled. 
But if you’re a glutton for punishment and can’t resist 
allowing for more, make MX in line 250 higher. Allow 
for 50 ships with: 


250 MX=90 


PROGRAMMER’S NOTEBOOK 


AEROJAM imposes the task of keeping track of the status 
of all ships — where they are, who they are, where they're 
going, if they’ve refueled, etc. This is done through the TV, 
TE, DK, CG, and DM arrays. The Main Variables section 
explains what information each one contains. The variable 
N is the number of active ships, and it is bumped by one 
when each new ship enters. The arrays of ship attributes are 
indexed from 1 to N. When a ship leaves, N must be 
decreased by one, but we still want the arrays to be indexed 
from 1 to the new N. Let’s say ship J leaves, where J is 
greater than 1 but less than N. We simply move all the 
values associated with the Nth ship into the Jth position. 
Then N can be decreased by one, and the arrays remain 
tight, correctly containing only information for the active 
ships. 

The playing field is divided into a 12-by-6 grid. Internally, 
these squares are numbered from 1 to 72 moving left to right 
and top to bottom. Squares 54, 55, 66, and 67 are not used 
or referenced since they would be inside the dock. We often 
need to identify what is in each square. The array G does 
this. G is dimensioned from 1 to 72. Its value is 0 (zero) when 
nothing is in the square, — 2 when debris has just been 
created there, —1 when old debris is still there, and a 
positive number when a ship is there. This positive number 
is the ship’s index from 1 to N. Thus if we know a ship is in 
square 5, let’s say, we can quickly get at vital information 
with a double array reference. For example, DM(G(5)) will 
tell us in what direction the ship in square 5 is pointing. 
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The CG array tells us which grid square ship J occupies, 
where J can be from 1 to N. Thus CG acts as the opposite of 
the G array. If CG(J)=5, then G(5)=J. The GD array 
similarly tells us the grid location of debris, where the 
number of active debris squares runs from 1 to ND. 

The program makes frequent use of the computer’s 
internal clock timer with the system variables TI and TI$. 
At the beginning of the game, line 1240 resets the timer to 
zero. From then on, the variable TI tells us the current time. 
This time is measured in jiffies, where each jiffy is 1/60 ofa 
second. At any time in the game, the value of TI/60 will be 
the number of seconds since the game began. 

This is used to keep the console clock accurately timed. 
The variables NM, NV, and NB are used to trigger certain 
events at future times. For example, NV holds the time when 
the next ship is scheduled to appear. If we frequently 
monitor the value of TI, as soon as it gets larger than NV we 
know it’s time to bring in the next ship. Lines 1360-1380 do 
this monitoring. 


MAIN ROUTINES 
SAAN UVU ENE 


130-140 Blanks screen and begins variable initialization. 

150-190 Subroutine to position cursor CD rows down and CR 
columns to the right from the upper left corner. 

200 Positions the command ball at grid square Q. 

210-220 Clears message area in the lower right corner. 

230-620 Variable initialization. 

630 Calls the subroutine to display the title screen. 

640-730 Displays option menu, branches to player’s choice. 

740-750 Sets variables for an easy game. 


760-770 Sets variables for a hard game. 

780-790 Calibrates the timing variables. 

800-1190 Draws the playing board. 

1200-1230 Defines strings used to blank out the play grid. 
1240 Initializes the time counter. 

1250-1320 Selects and displays the initial four spacecraft. 
1330-1470 Draws command ball and detects user’s requests. 
1480-1650 Processes requests to move the command ball. 
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1720-1800 
1810-2880 


2890-2920 


2930-2960 
2970-3010 
3020-3130 
3140-3320 
3330-3360 


3370 

3380-3450 
3460-3570 
3580-9990 
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Rotates ship clockwise. 

Sends ship to never-never land. 

Processes a move request — updates collisions, ship 
positions, refueling, debris, etc. 

Subroutine to adjust score upon a successful ship 
exit. 

Subroutine to flash the screen. 

Subroutine to update ship grid locations. 

Brings in new debris randomly. 

Brings in new ship. 

Subroutines to update arrays when a ship leaves the 
field of play. 

Subroutine to display the player’s score. 

Updates the scoreboard at the game’s conclusion. 
Subroutine to display the introductory title. 

Resets screen colors and ends the game. 


MAIN VARIABLES 


Number of active ships. 

Number of squares containing space debris. 

Time calibration constant. 

Time of next automatic move, new ship arrival, and 
new debris. 

Time for last ship to arrive. 

Time increments to update NM, NV, and NB. 


Grid square of command ball. 

Maximum number of ships allowed in play 

at once. 

Player’s current score. 

Random value cutoffs for successful docking at top 
ports and side ports and for debris removal. 

Values to position cursor down and right. 

Loop, index, and work variables. 


Arrays of X and Y positions of each grid square. 


Array of what’s in each grid square (neg = 
debris, 0 = nothing, pos= ship). 
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Array of each ship’s current grid square. 

Array of each ship’s classification (1 = westbound 
drone, 2 = eastbound drone, 3 = westbound 
manned, 4= eastbound manned). 

Array of each ship’s fueling status (1 = fueled, 

2= needs fuel). 

Array of each ship’s time of entry. 

Array of each ship’s direction of movement (1 = 
left, 2=up, 3=right, 4=down). 

Array of each debris’ grid square. 

Arrays of possible entry squares for eastbound and 
westbound ships. 

String to home the cursor. 

Strings of 40 cursor rights, 40 cursor downs, and 40 
blank spaces. 

Player input string. 

Strings to request command ball movement up, 
right, down, and left. 

String of one blank character. 

String of default character color for printing. 
Strings to request ship turning, ship zapping, and 
movement updates. 

Strings to turn reverse characters on and off. 
Work strings. 


tring to draw debris. 

String to blank out a grid square. 

String array to display color for each ship classi- 
fication. 

String array to display each ship’s classification 
and orientation. 


SUGGESTED PROJECTS 


1. Create a multiplayer version of the game. Perhaps two 
can play, one controlling the westbound ships and the 
other the eastbound ships. Each player’s decisions will 
affect the task of the other. 
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2. Implement a feature to prescibe a flight plan for each 
ship at its entry time. This would be its route to the dock 
and exit path with set times for each event. Then the 
ship would automatically move itself unless you 
updated its plan as changing conditions might warrant. 


3. Adda detect feature that warns you when a ship-to-ship 
or debris collision is imminent. 
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ono 2 


f you have been following the computer gaming scene, 

you know what an adventure game is. Most adventure 
games are extremely complex simulations in which you, the 
player, try to explore a complicated area (maybe a labyrinth 
of caves, rooms, or dungeons) looking for treasures while 
trying to avoid and/or kill monsters. For the player’s moves, 
the games generally accept simple English commands, such 
as “go north” and “throw bomb.” Newer versions of these 
games keep coming up with larger vocabularies, requiring 
more obscure commands to overcome the obstacles and 
monsters. These games give the hard-core adventure freaks 
new challenges, but the beginning adventurer becomes 
hopelessly lost while trying to figure out incredibly complex 
games. How is a beginner going to figure out that he needs 
to juggle the enchanted pineapples in front of the yellow 
dwarf in order to scare away the poisonous wombat? 

Don’t despair, inexpert adventurers! ESCAPADE is for 
you. It has a small vocabulary and a straightforward 
scenario. You can get an enjoyable taste of what adventure 
games are like, then move on to the hard-core stuff after you 
become comfortable with this game. 
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RULES 


In this game, you start from the front yard of a mysterious 
old mansion. It is next to a cemetery, although this has 
nothing to do with the game other than to indicate your 
isolation during the adventure, and to add credibility to the 
legends that the house is haunted. In addition, there are 
stories that numerous gangs of crooks have used the house 
as a hideout over the years, but they always have disap- 
peared without a trace. 

Throwing caution to the wind, you have decided for once 
in your life to go on a dangerous and exciting escapade. You 
are going to explore this deserted old house, trying to visit 
all the rooms. And, you are going to look for any loot left 
behind by the crooks. If you find any, of course, you'll carry 
it with you back out to the front yard, where you will drop 
it while you go inside to look for more. 

That’s the scenario and the object of the game. Details of 
exactly how to do these things follow. 


HOW TO USE IT 


If you are one of those people who likes to try to assemble 
the new bicycle (or lawn chair or computer system) without 
reading the instructions, then stop reading right now and 
begin playing the game. The rest of you, read on. 

ESCAPADE starts by displaying its title screen and 
copyright notice, and waiting for you to press a key to begin. 
After a brief delay, the program displays its option menu. 
Choose option 1 to play the standard game of ESCAPADE. 
This game will always be the same, so you can play it 
numerous times until you have mastered it. The creatures, 
weapons, valuables, rooms, and doors are always in the 
same places, and the same weapons defeat the same crea- 
tures each time. 

Option 2 gives you a random game. This means that some 
things change from game to game, although many things 
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stay the same. As currently implemented, the random option 
causes the weapons and valuables to be randomly placed 
(within limitations) in the house. Other things (creatures, 
rooms, doors) stay the same. 

Option 3 displays a screen of brief instructions, and 
option 4 ends the program. 

As we said earlier, this game uses a pretty simple com- 
mand format. Enter your commands on your computer 
keyboard as either one or two words, pressing [RETURN] to 
conclude each command entry. Any words beyond two are 
ignored. For two-word commands, the first word is a verb 
and the second is either a noun or a direction. Some 
examples: GET LANTERN, USE WATER, DROP RUBY, 
GO NORTH. 

Single-word commands are either simply a direction 
(NORTH, SOUTH, EAST, WEST, UP, DOWN) or one of the 
verbs that requires no object, which are: SCORE, LOOK (or 
INVENTORY), QUIT, and HELP. 

If you prefer, you can enter the first letter of any of the 
directions (N, S, E, W, U, D) rather than the whole word. In 
summary, to move north you can choose from these four 
commands: 


GO NORTH, GON, NORTH, N. 


For an object that is described with a phrase rather than 
a single word, use the last word of the phrase as the second 
word in your command. For example, to pick up the ring of 
keys, say GET KEYS instead of GET RING or GET RING 
OF KEYS. For objects with names longer than five char- 
acters, you need only enter the first five characters. You can 
say TAKE LANTE instead of TAKE LANTERN if you like. 

While you wander through the house, you are carrying a 
bag with you. When you get (or take) something, it goes into 
your bag. Like all other bags we know of, this bag is not 
infinitely large. It has room for no more than five objects. 

Scoring for the game is based on two factors — the point 
values of the valuables that you have removed from the 
house and dropped in the front yard, and the number of 
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rooms you have visited. There are 29 rooms and a total of 
180 points for the five valuables, so the highest score you 
can achieve is 209 points. Use the SCORE command at any 
time to see how you are doing so far. 

To see a list of commands you can use, enter the HELP 
command. To end the game, say QUIT. Ideally, you do this 
after dropping all the valuables in the front yard, but you 
can do it at any time. 

You may find it helpful to draw a map as you explore the 
rooms, showing where objects, monsters, and doorways are. 
This will make it easier to improve your score next time. 
Soon you'll score 209 points and be rated as an Elite 
Escapader. 


SAMPLE RUN 


ESCAPADE FROM ‘MIND MOVES’ 


OPTIONS: 
RR 


Ph PLAVING. 


A 
M 
" 
M. 


The program displays its option menu, and the player picks option 1 to 
play the standard game. 
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: CAPA h E FROM ‘MIND MOVES’ 

us ok MARS TGR NEAR 

eae : we 
HI 


N 
) 
AUNT 
AS AH F TIL 
"tl 
NG . 


U 


YOU CAN GO: NORTH 
COMMAND? W 


After reading the introduction, the player types N to go north. 


vou CAN GO: NORTH 
COMMAND? N 


yer GG rs foe THE FRONT bOOR 
Fee £2 8 PAnfeRh HERE. ERE: 


YOU CAN GO: NORTH SOUTH 


COMMAND? GET LANTERN 
GOT IT -- IT’S NOW IN YOUR BAG 


YOU ARE IM THE FRONT PORCH — 
THERE IS A RING OF KEYS HERE. 
YOU CAN GO: NORTH SOUTH 
COMMAND? NE 


This moves the player from the front yard to the front porch, where he or 
she decides to pick up the lantern before continuing north. 
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100 
119 
120 
139 
14@ 
15@ 
169 
178 
18@ 
190 
280 
210 
220 
230 
24G 
250 
266 
270 
280 
290 
308 
310 
329 
33@ 
340 
35@ 
36@ 
378 
388 
396 
400 
419 
420 
436 
440 
45@ 
460 
47@ 
480 
499 
508 
518 
520 
530 
548 
55@ 
568 
578 
58@ 


598 
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PROGRAM LISTING 


REM: ESCAPADE 

REM: COPYRIGHT 1984 DILITHIUM PRESS 
REM: BY TOM RUGG AND PHIL FELDMAN 

GOSUB 29180:GOSUB 1998:GOSUB 148@ 

PRINT CHRS (147) 

PRINT TTS;SPC(2);"FROM 'MIND MOVES'" 
GOSUB 1338 

GOSUB 218:GOSUB 26@:GOSUB 3304 

GOSUB 43@:GOSUB 64@ 

IF M=5 THEN 1890 

GOTO 17@4 

PRINT 

PRINT"YOU ARE IN THE";SPC(1);RSS(RN) 

IF TR(RN)<>@ THEN 2590 

TR(RN)=1:PRINT RLS (RN) 

RETURN 

PRINT 

FOR J=l TO NW:W=TW(J):GOSUB 32@ 

IF W<>RN THEN 300 

PRINT"THERE IS A "sDWS(J);" HERE." 

NEXT 

RETURN 

T=INT (W/100) :W=W-T*100: RETURN 

FOR J=l1l TO NC:W=TC(J):GOSUB 320 

IF W<>RN THEN 3790 

PRINT: PRINT" THERE IS A";SPC(1);DCS(J) 
PRINT“BLOCKING THE DOOR GOING "eCMS (T+7); "1" 
NEXT 

PRINT: PRINT"YOU CAN GO:"; 

FOR J=@ TO 5:IF TM(RN,J)=8 OR TM(RN,J)=RN THEN 410 
PRINT SPC(1);CMS (J+7); 

NEXT: PRINT 

RETURN 

RS=""3 PRINT 

INPUT"COMMAND";RS: IF LEN (RS)=@ THEN 44@ 
RS=RS+CHRS (32) 

L=LEN (RS) : PF=1:WAS="""sWBS=""sFOR J=l TO L 
IF ASC(MIDS (RS,J,1))=32 THEN 4990 
NEXT:GOTO 530 

IF J=PF THEN PF=PF+1:GOTO 48@4 

IF LEN (WAS) =@ THEN WAS=MIDS (RS,PF,J-1):GOTO 529 
IF LEN (WBS) =@ THEN WBS=MIDS (RS, PF, J-PF) 
PF=J+1:GOTO 480 

IF LEN (WAS)=@8 THEN 6194 

WAS=LEFTS (WAS,5) :WBS=LEFTS (WBS, 5) 
VA=@:VB=@8:FOR J=l TO NA:IF VA<>@ AND VB<>@ THEN 589 
IF CMS(J)=WAS THEN VA=CM (J) 

IF CMS(J)=WBS THEN VB=CM (J ) 

NEXT: IF VA=@ THEN 61@ 

IF VA>1@000 THEN 6190 

RETURN 
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1818 
1020 
1830 
184@ 
105¢ 
1068 
10876 
1880 
1096 
1180 
1119 
1128 
1138 
1142 
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M=1:GOSUB 628:GOTO 43@ 

PRINT: PRINT MS(M):IF M=4 THEN PRINT DCS (J) 
PRINT: RETURN 

W=VA:GOSUB 320 

IF W=2 THEN VA=VB:W=1:GOTO 648 

ON W GOSUB 688,689,770,870,1019,1070,11690,1289 
RETURN 

FL=T:FR=W:M=@ 

IF TM(RN,FL)=@ THEN M=2:GOSUB 620:GOTO 7690 
FOR J=l1 TO NC:IF TC(J)<@ THEN 740 
W=TC(J):GOSUB 320:IF RN<>W THEN 740 

IF FL<>T THEN 7/48 

M=4:GOSUB 629 

NEXT: IF M=4 THEN 768 

RN=TM (RN,FL) ;:MN=MNF1 


RETURN 

W=VB: IF W=@8@ THEN M=5:GOTO 8698 
GOSUB 3290 

T=T-100:IF T<l THEN M=5:GOTO 869 


W=TW(T):J=T:GOSUB 3290 
IF W=0 THEN M=3:GOTO 8690 
IF W<>RN THEN M=18:GOTO 8690 
IF NB>=5 THEN M=22:GOTO 868 
TW (J) =T*100 
M=19:NB=NBt+1 
GOSUB 628:RETURN 
W=VB: IF W=8 THEN M=5:GOTO 1090 
GOSUB 328 
T=T-100:1IF T<l THEN M=5:GOTO 19000 
WR=W:W=TW(T) :WL=T:GOSUB 328 
IF W<>@ THEN M=20:GOTO 1009 
FL=T:FR=W: IF WLONC THEN M=21:GOTO 990 
K=@:FOR J=1 TO NC:W=TC(J):GOSUB 3290 
IF W=RN THEN K=J 
NEXT 
IF K=@ THEN M=21:GOTO 9998 
IF K<>FL THEN M=WR:GOTO 9998 
M=WL+11:TC(WL) =@ 
TW (WL) =FL*100+RN:NB=NB-1 
GOSUB 62@:RETURN 
K=@:FOR J=l TO NW:W=TW(J):GOSUB 3290 
IF W<>1l THEN 1048 
IF T>1@ AND T<9@ THEN K=K+T 
NEXT: FOR J=1 TO NR: K=K+TR (J) 2: NEXT 
PRINT: PRINT"SCORE ="3K;"POINTS.": PRINT 
RETURN 
TR (RN) =@ 
PRINT: PRINT"YOU ARE CARRYING:" 
K=@:FOR J=l1 TO NW:W=TW(J):GOSUB 329 
IF W<>8 THEN 11380 
IF POS (@) +LEN (DWS (J))>38 THEN PRINT 
K=K+1:PRINT DWS(J);SPC(2); 
NEXT: IF K=@ THEN PRINT"NOTHING"; 
PRINT: PRINT 
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1158 
116@ 
1178 
118@ 
1198 
1200 
1210 
1220 
1230 
1248 
1256 
1266 
1270 
1280 
1298 
1300 
1310 
1320 
1330 
134@ 
1350 
1369 
1378 
1388 
1396 
1480 
1410 
1420 
1436 
1449 
1459 
1460 
147@ 
1488 
149@ 
1580 
151¢ 
1526 
153¢ 
1548 
155@ 
1568 
1570 
158@ 
1599 
1609 
161@ 
1629 
1638 
1649 
1658 
1660 
167@ 
168@ 


RETURN 
GOSUB 1910: K=@ 

FOR J=l TO NR: K=K+TR(J):NEXT 

PRINT"YOU VISITED";K;"OF";NR; "ROOMS." 

PRINT: PRINT"SCORING SCALE:": PRINT 

PRINT" 1- 58 = BEGINNING BOZO" 

PRINT" 51-100 = HALF-WIT HAMBURGER" 
PRINT"1@1-150 = MID-LEVEL MEATBALL" 
PRINT"151-208 = TREMENDOUS TURKEY" 

PRINT" 209 ELITE ESCAPADER" 

PRINT: PRINT"PRESS A KEY TO GO ON" 

GET RS:IF LEN(RS)=@ THEN 1269 

CLR:GOTO 138 

PRINT: PRINT"AVAILABLE VERBS ARE:":PRINT 
PRINT"GO, GET (TAKE), USE (DROP, THROW) ," 
PRINT"SCORE, LOOK (INVEN), QUIT, HELP" 

PRINT 

RETURN 

PRINT 

PRINT"YOU ARE STANDING IN THE FRONT YARD IN" 
PRINT"FRONT OF A MYSTERIOUS OLD MANSION NEAR" 
PRINT"A CEMETERY. NO ONE IS AROUND FOR" 
PRINT"MILES. YOU'VE HEARD LEGENDS ABOUT" 
PRINT"THIS PLACE -- THAT IT'S HAUNTED, AND" 
PRINT"THAT CROOKS USED IT AS A HIDEOUT UNTIL" 
PRINT"THEY MYSTERIOUSLY DISAPPEARED." 

PRINT 

PRINT"YOU'VE DECIDED TO EXPLORE THIS PLACE." 
PRINT"MAYBE YOU CAN FIND SOME LOOT LEFT" 
PRINT"BEHIND BY THE CROOKS. EVEN IF You" 
PRINT"DON'T, THIS WILL BE AN EXCITING..." 
PRINT:PRINT TAB(8);TTS;"1" 

RETURN 

PRINT CHRS (147) 

PRINT TTS;SPC(2);"FROM 'MIND MOVES'" 

PRINT: PRINT 

PRINT"OPTIONS:":PRINT 

PRINT" 1 — PLAY STANDARD GAME." 

PRINT" 2 - PLAY RANDOM GAME." 

PRINT" 3 - INSTRUCTIONS FOR PLAYING." 

PRINT" 4 — END PROGRAM." 

PRINT 

PRINT"PRESS 1, 2, 3, OR 4" 

GET RS:IF LEN(RS)=@ THEN 1589 

IF RS<"1" OR RS>"4" THEN 1589 

PRINT RS 

ON VAL (RS) GOTO 1639,1648,1730,1989 

STOP 

RETURN 

FOR J=l TO NW:W=TW(J):GOSUB 320 

W=W+INT (5*RND (1) )-2 

IF W>NR THEN W=NR 

IF W<l THEN W=l 

TW (J)=T*100+W 
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1698 
178@ 
171@ 
1720 
1736 
1740 
1750 
176@ 
1770 
1780 
1796 
1800 
18180 
1829 
1830 
1848 
1850 
186@ 
187@ 
1880 
1890 
1980 
1919 
1920 
1939 
1946 
1958 
196@ 
197@ 
1980 
1998 
2008 
2810 
20620 
2030 
2040 
2050 
2069 
2070 
2086 
2090 
21988 
2118 
2120 
2130 
2148 
2158 
2160 
2170 
218@ 
2199 
2200 
2218 
2220 


NEXT 

PRINT: PRINT" RANDOM GAME NOW SET UP." 

FOR J=1 TO 3000:NEXT 

RETURN 

PRINT: PRINT 

PRINT TTS;SPC(2);"MINI-INSTRUCTIONS" 

PRINT 

PRINT"THIS IS AN ADVENTURE-TYPE GAME." 

PRINT" ENTER COMMANDS AS ONE OR TWO WORDS." 
PRINT"THE FIRST WORD IS USUALLY A VERB, SUCH" 
PRINT"AS 'GET' OR 'GO' OR 'USE'. THE SECOND" 
PRINT"WORD IS A NOUN OR A DIRECTION." 

PRINT 

PRINT"YOU CAN ENTER THE COMMAND 'HELP' TO" 
PRINT"FIND OUT WHAT VERBS YOU CAN USE." 

PRINT 

PRINT"TO MOVE IN A DIRECTION, YOU CAN SIMPLY" 
PRINT"GIVE A ONE WORD COMMAND LIKE 'EAST' OR" 
PRINT"JUST 'E', OR YOU CAN SAY 'GO EAST‘'." 
PRINT 

PRINT"THE OBJECT OF ESCAPADE IS TO EXPLORE" 
PRINT"ALL ROOMS AND DROP ALL VALUABLES IN" 
PRINT"THE FRONT YARD." 

PRINT 

PRINT" FULL DETAILS ARE IN 'MIND MOVES'" 
PRINT" FROM DILITHIUM PRESS." 

PRINT: PRINT"PRESS A KEY TO CONTINUE."; 

GET RS:IF LEN(RS)=@ THEN 1960 

GOTO 1480 

GOTO 31286 

PRINT CHRS(147):PRINT"ONE MOMENT PLEASE..." 
RN=1:NW=15:NC=6:NR=29:NA=39 

DIM TM(NR;,5),TR(NR),TC(NC) , TW(NW) ,CM(NA) 

DIM RSS (NR) , RLS (NR) , DCS (NC) , DWS (NW) ,CMS (NA) 


DIM MS(25) 

FOR J=l TO NR:FOR K=@ TO 5:READ TM(J,K) :NEXT: NEXT 
DATA. 2,1, 1,170,907 3,2¢1,2,9079%. 7497274 ,1979 

DATA @,3,0,0,0,0, %9,6,9,3,9,8, 8,0,9,5,0,9 

DATA @,8,3,08,9,8, 8,9,8,7,9,9, 12,19,0,8,0,9 

DATA @,8,11,9,0,80, 10,9,0,9,0,8, 15,9,9,13,9,98 
DATA @,12,0,14,0,16, %,13,9,9,0,8, 8,8,12,0,0,8 
DATA @,17,0,0,13,8, ®,8,18,16,9,8, 17,0,0,08,9,98 
DATA 23,25,0,290,0,3, 22,19,9,21,0,9, %9,20,0,0,9,9 
DATA @,0,20,0,90,8, 24,9,19,9,0,8, %,%,23,%9,9,90 
DATA 26,9,8,19,8,8, 27,29,25,0,9,8, 8,28,26,0,0,90 
DATA @,0,0,27,9,80, 8,9,0,26,0,90 

FOR J=l1 TO NA:READ CMS (J) ,CM(J):NEXT 


DATA N,1,E,101,S,201,W,301,U,401,D,501,NORTH,1 

DATA EAST,1@01,SOUTH,201,WEST,301,UP,481,DOWN, 501 
DATA GO,2,GET,3,TAKE,3,THROW,4,DROP,4,USE, 4 

DATA SCORE,5,LOOK,6,INVEN,6,QUIT,7,HELP,8 

DATA GUN,10106,WATER,10206,SWORD, 10307,GAS,190407 
DATA HANDC,10508,CUFFS,10508,DART,19607,BOOME,19707 
DATA ROPE, 10807,KEYS,10909,LANTE,11019,RUBY,11111 
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2230 
2248 
2250 
2260 
2270 
2280 
2296 
2300 
2318 
2320 
2330 
2340 
2350 
2366 
2378 
2380 
2396 
2490 
2410 
2420 
2430 
2449 
2458 
246 
2470 
2480 
249@ 
25008 
2518 
2520 
2530 
2540 
2550 
2566 
2576 
2580 
2596 
2600 
2616 
2620 
2630 
2640 
2650 
2669 
2670 
2689 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
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DATA COINS,11211,BAR,11311,CHAIN,11411,RING,11511 
FOR J=l1 TO NW:READ DWS(J),TW(J) :NEXT 

DATA SQUIRT GUN,104,BOTTLE OF WATER,207 

DATA RUBBER SWORD, 304,VIAL OF MYSTERY GAS,428 

DATA PAIR OF HANDCUFFS,514,TRANQUILIZER DART, 606 
DATA SHINY BOOMERANG,4,NYLON ROPE, 29 

DATA RING OF KEYS,99@2,LANTERN,98@2 

DATA LARGE RED RUBY,5@18,BAG OF COINS, 3911 

DATA SILVER BAR,4@24,GOLD CHAIN,4@29 

DATA SMALL DIAMOND RING, 2068 

FOR J=l TO NC:READ DCS$(J),TC(J):NEXT 

DATA HOBBLING GOBLIN, 105,FAT BLACK CAT,210 

DATA GROSS GHOST,1987,MUTANT BANDITO MOSQUITO, 312 
DATA DROOLING GHOUL,19,FIGHTER SPIDER,18 

FOR J=l TO NR:READ RSS(J),RLS(J):NEXT 

DATA FRONT YARD,IN FRONT OF A FRIGHTENING OLD HOUSE 
DATA FRONT PORCH,JUST OUTSIDE THE FRONT DOOR 

DATA FRONT HALL,WITH A BALCONY ABOVE AND MANY DOORS 
DATA FRONT CLOSET,A SMALL ROOM WITH A SINGLE DOOR 
DATA SITTING ROOM,WHICH HAS A VIEW OF THE FRONT YARD 
DATA DOWNSTAIRS BATH,A ONE-DOOR ROOM 

DATA LIVING ROOM,DUSTY FROM YEARS OF NEGLECT 

DATA PARLOR,THE CENTRAL DOWNSTAIRS ROOM 

DATA DINING ROOM,DO YOU DARE GO ANY FARTHER? 

DATA BACK CLOSET,A SMALL ROOM AND PASSAGEWAY 

DATA SEWING ROOM,BUT THEN SEW WHAT? 

DATA KITCHEN,OVERLOOKING AN ENCLOSED BACK YARD 

DATA PANTRY,A SMALL ROOM WITH EMPTY SHELVES 

DATA REAR CLOSET,NOT A VERY EXCITING PLACE TO BE 
DATA BACK YARD,COMPLETELY ENCLOSED BY FENCES 

DATA BASEMENT,DAMP AND DANK AND DUSTY 

DATA WINE CELLAR,LONG AGO EMPTIED 

DATA STORAGE ROOM,AN EXTREMELY UNPLEASANT ROOM 

DATA BALCONY, THE UPSTAIRS CROSSROADS 

DATA SIDE HALL,A SMALL AND NARROW ROOM 

DATA SMALL BATH,ABOUT WHICH NOTHING MORE CAN BE SAID 
DATA SMALL BEDROOM,TOO SMALL EVEN FOR A GHOUL 

DATA MASTER BEDROOM,ONCE LUXURIOUS BUT NO LONGER 
DATA MASTER BATH,WHICH HAS ONLY ONE DOOR 

DATA UPSTAIRS HALL,A LONG NARROW ROOM 

DATA GREEN ROOM,EVEN IF YOU HAVE A BLACK & WHITE TV 
DATA GUEST ROOM,FROM WHICH THE GUESTS ARE LONG GONE 
DATA GUEST BATH,SUFFERING FROM TERMINAL BATHTUB RING 
DATA STUDY,ALMOST AS DUSTY AS THE BASEMENT 

FOR J=l TO 22:READ MS(J):NEXT 

DATA I DON'T UNDERSTAND YOU 

DATA YOU CAN'T GO THAT WAY 

DATA YOU ALREADY HAVE THAT 

DATA THAT WAY IS BLOCKED BY A 

DATA I CAN'T DO THAT 

DATA IT'S WET BUT UNHARMED 

DATA IT ISN'T AFFECTED 

DATA THEY DON'T FIT IT -- IT IGNORES THEM 
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DATA THEY BOUNCE OFF HARMLESSLY 

DATA IT'S IRRITATED BUT UNHARMED 

DATA “EASY COME, EASY GO" 

DATA IT RUNS AWAY FRIGHTENED 

DATA "SOAKED, IT RUNS AWAY" 

DATA IT VAPORIZES IN SURPRISE 

DATA IT FLIES AWAY COUGHING 

DATA "FEARING CAPTURE, IT DISAPPEARS" 

DATA IT CLIMBS TO THE CEILING AND SLEEPS 
DATA NOTHING LIKE THAT IS HERE 

DATA GOT IT -- IT'S NOW IN YOUR BAG 

DATA YOU DON'T HAVE SUCH A THING 

DATA IT FALLS TO THE FLOOR 

DATA YOU CAN'T CARRY THAT MUCH AT ONCE 
RETURN 

PRINT CHRS (147) ;CHRS (142) ;CHRS (8) ;CHRS(158) 
POKE 53269,@0:POKE 53280,6:POKE 53281,6 
TTS="E S C A PAD E" 

PRINT: PRINT 

PRINT TAB(12);TTS 

PRINT: PRINT 

PRINT TAB(4);"COPYRIGHT 1984 DILITHIUM PRESS" 
PRINT: PRINT: PRINT: PRINT 

PRINT TAB(6);"FROM THE BOOK 'MIND MOVES'" 
PRINT: PRINT 

PRINT TAB(5);"BY TOM RUGG AND PHIL FELDMAN" 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

PRINT TAB(9);"PRESS A KEY TO BEGIN" 


GET RS:IF LEN(RS)=@ THEN 3040 

K=RND (-TI) 

J=1:w=@0:T=0:I=1 

RETURN 

PRINT 

PRINT TAB(6);"PRESS A KEY TO CONTINUE" 
GET RS:IF LEN(RS)=@0 THEN 31900 


RETURN 

POKE 53280,14:POKE 53281,6 

PRINT CHRS (147) ;CHRS (9) ;CHRS (154) 
END 


EASY CHANGES 


1. You can scatter the objects among a wider range of 
rooms when you choose the random game (option 2) by 
changing this line: 


1650 W=W+INT(9*RND(1) )—4 
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Be aware that this increases the chances that you will 
not be able to score the maximum point total, because 
a creature may end up blocking the path to the room 
containing the weapon needed to neutralize that 
creature. 


. Change the names and descriptions of the rooms by 
changing lines 2380 to 2660. Each line has the name of 
the room, then a comma, then a short descriptive phrase 
that is displayed the first time the room is entered. 
Don’t include any commas in the descriptive phrase 
unless you enclose the entire phrase in quotation marks. 
For example, suppose you want to rename the front hall 
to be the entryway, and you want to describe it as a 
dusty, dark room. Make this change: 


2400 DATA ENTRYWAY,“A DUSTY, DARK 
ROOM” 


. Make a more visible separation on the screen between 
one command and the next by inserting: 


439 FOR J=1 TO 36:PRINT“ + ”;:NEXT:PRINT 


. Change the number of objects your bag can hold by 
changing the 5 in line 830. For example, to limit the 
bag’s capacity to three items, make this change: 


830 IF NB>=3 THEN M=22:GOTO 860 


PROGRAMMER’S NOTEBOOK 


The dominant feature of the design of ESCAPADE is that it 
is table-driven. Nearly all the critical information is in 
numeric and string tables (arrays), all of which are 
initialized from DATA statements by the routines in lines 
1990 to 2900. 
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When a command is entered, it gets broken into two 
words, if necessary. The command table (CM$) is searched 
to see if the command is a legal one. If not, an error message 
is displayed. The command table has corresponding 
numeric values (the CM array) that indicate which pro- 
cessing routine handles that command (rightmost two 
digits) and other data about that command, if necessary (left 
digits). 

The weapons and valuables are described in a similar way 
using DW$ and TW. The rightmost two digits in each TW 
array entry show which room the object is in. The left digits 
indicate the creature that the weapon is effective against if 
less than 10, or the value of the object in scoring points if 
between 10 and 90. Values over 90 are included for use in 
doing the first Suggested Project. 

The key to what movement is allowed from room to room 
is in the table of movement (TM). Each room (1 to 29) has 
six values (indexed as 0 through 5), corresponding with 
north, east, south, west, up, and down. Moving east from a 
room, for example, puts the player into the room indicated 
by the east value for the originating room. A value of 0 
means there is no door in that direction. A value the same 
as the current room number means the player remains in the 
same room. 


MAIN ROUTINES 


130-200 Main loop. Calls other main subroutines. 
210-250 Displays which room the player is now in. 
260-310 Displays which objects are in the room. 


320 Splits value in W into rightmost two digits (replaces 
W) and left digits (T). 
330-420 Displays any creatures in the room, and indicates 


which directions doors lead. 

430-610 Accepts command from player. Splits words. Checks 
words for legality. 

620-630 Displays message number M. 

640-670 Goes to the subroutine corresponding to the com- 
mand entered. 
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770-860 
870-1000 
1010-1060 
1070-1150 
1160-1270 
1280-1320 
1330-1470 
1480-1600 
1610-1630 


1640-1720 
1730-1970 
1980 

1990-2900 


2910-3070 


3080-3110 
3120-9990 
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Processes commands 1 and 2 (direction command 
without and with the word go). 

Processes command 3 (get/take). 

Processes command 4 (use/drop/throw). 
Processes command 5 (score). 

Processes command 6 (look/inven). 

Processes command 7 (quit). 

Processes command 8 (help). 

Displays introduction before player’s first move. 
Displays option menu and accepts response. 
Branches to the proper routine to handle the menu 
response. Returns for standard game (option 1). 
Sets up random game (option 2). 

Displays instructions (option 3). 

Branches to the routine to end the program. 
Subroutine to initialize variables and read DATA 
statements into arrays. 

Subroutine to display title screen and initialize some 
variables. 

Subroutine to wait for a key to be pressed. 

Resets screen colors and ends the program. 


MAIN VARIABLES 


Room number the player is currently in. 

Message number to be displayed. 

Number of objects (weapons, valuables) in the game. 
Number of creatures in the game. 

Number of rooms. 

Number of command words and synonyms. 

Loop and work variables. 

Length of input command. 

Temporary work variables. 

Pointer to the first character in a command word. 
Left and right fields that a number is split into. 
Work values of left and right fields of a number. 
Command values corresponding with WA$ and WB$. 
Number of objects in player’s bag. 

Move number. 

Constant one. 

Table of movement. 
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TC Table of creatures. 

TW Table of weapons, valuables, and other objects. 

TR Table of rooms, for determining which have been 
visited. 

CM Table of command numerical values (associated with 
each CM$). 

RS$ Array of room names (short). 

RL$ Array of room descriptions (long). 

DW$ Array of weapon names. 

DC$ Array of creature names. 

CM$ Array of commands (first five characters). 

M$ Array of messages. 

R$ Reply from player (full command or single key 
pressed). 

WA$, WB$_ First and second words of player’s command. 

TT$ Title of the game (with alternate spaces). 

SUGGESTED PROJECTS 
1. Add obstacles to the game and commands to overcome 


them. For example, the lantern and the ring of keys are 
already included for such future uses in the game (as 
well as to have a few useless objects in the game to 
confuse the player a little). Put locks on some doors and 
require the player to “unlock door” before going 
through it. Require the player to carry the lantern when 
traveling in the basement, since it’s dark down there. 


. When the player wants to play a random game, change 


the room layout slightly, not just the locations of the 
objects. Start with a change like this, which randomly 
(50 percent chance) eliminates the door between the 
front hall and the living room, but creates one between 
the sitting room and the parlor: 


1692 IF RND(1)>.5 THEN TM(3,0) = 0:TM(7,2) = 0: 
TM(5,0) = 8:TM(8,2) =5 
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OTSHOT brings the challenging action game of bil- 

liards into your living room (or wherever your com- 
puter happens to be). You have free reign at the billiards 
table, complete control over each shot’s direction and speed. 
Compete against a friend, the computer, or just practice by 
yourself. Game parameters can be freely adjusted to match 
your level of skill. 

Now please don’t confuse billiards with the game of pool. 
Pool (more formally known as pocket billiards) is played on 
a table with pockets, usually with 16 balls. The more elegant 
game of billiards uses only three balls and no pockets. The 
objective in billiards is to strike your cue ball and have it 
hit each of the other two balls. Carefully planned geometric 
shots must be executed. In HOTSHOT, you choose among 
several variants of billiards, including the difficult three- 
cushion billiards. 

Dynamic color graphics are used to display the excitement 
of the moving balls and their collisions. Eager for success, 
you plan each shot then watch it unfold. And, of course, you 
can make trick shots. After all, what’s a game of billiards 
without trick shots? You can put various types of spin, or 
English, on your cue ball to cause special effects — just 
what’s needed for those tough shots you seem to face so 
often. 

OK, hustler, it’s your shot! 
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RULES 


This computer game closely simulates the real game of 
billiards. Three balls are used — red, white, and blue (very 
patriotic if you’re American.) Each player shoots one of 
these balls, called his cue ball, and tries to make it hit both 
of the other balls, called object balls. One player uses the 
white ball as a cue ball and the other player uses the red ball 
as a cue ball. 

In regular billiards, a shot is successful if the cue ball hits 
both object balls. By contrast, the game of three-cushion 
billiards requires additionally that the cue ball bounce off 
at least three cushions before it hits the second object ball. 
It is not necessary to hit three different cushions, and it is 
even possible to hit the same cushion twice in a row. It’s 
okay if more than three cushions are hit before the second 
object ball is struck. Also, the cue ball can hit the first object 
ball before it strikes a cushion or after it strikes one cushion 
or more. If the two object balls are close together, a common 
strategy is to hit the cue ball around the table striking (at 
least) three cushions before colliding into the two object 
balls. However, most shots are attempted by hitting an 
object ball and deflecting the cue ball around the table into 
the second object ball. A shot is unsuccessful if the two 
object balls are never struck by the cue ball or if they are 
struck before the three-cushion requirement is met. 

To repeat, a successful shot in regular billiards requires 
only that the cue ball hit each object ball. This is zero- 
cushion billiards, if you will. With HOTSHOT, you can play 
zero-, one-, two-, or three-cushion billiards. We recommend 
starting with zero-cushion billiards and increasing the 
cushion requirement as your skill progresses. 

The game is played for a prescribed number of innings. 
During an inning, each player gets one turn. He may 
continue shooting as long as he continues to make successful 
shots. Each successful shot scores one point. When he 
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misses, it becomes his opponent’s turn. After the prescribed 
number of innings is completed, the player with the higher 
score wins. 


HOW TO USE IT 


The program begins by displaying its title screen. You hit 
any key to start the option menu. First select who the 
players will be. Option 1 means that you will be competing 
by yourself (and using the white ball as the cue ball). Option 
2 is for two human players, while option 3 pits you against 
the computer. Option 4 ends the game after resetting 
computer parameters. Simply press 1, 2, 3, or 4 to indicate 
your choice. 

If you select option 2, you are asked for the names of the 
two players. Type in each name followed by [RETURN]. 
Limit each name to eight characters, or only the first eight 
characters you type will be used. The first player will get the 
white cue ball and the second player the red. If you choose 
to play against the computer, you will be asked who shoots 
first, and thus gets the white cue ball. Simply press 1 or 2 
to indicate this choice. 

The next option is to choose the size of the table. We’ve 
given you three choices cleverly called small, medium, and 
large. The difficulty of the game increases as the table size 
increases, SO again we recommend starting with the small 
table and progressing to the larger ones as your skill 
improves. Simply press 1, 2, or 3 to indicate your choice. 

Now you choose the number of cushions required for a 
successful shot. The toughest game is three-cushion, but you 
may also choose two-, one-, or zero-cushion (regular 
billiards) as explained above. Press 0, 1, 2, or 3 to select your 
preference. 

Lastly, choose the number of innings for the game. You 
may pick any number between 1 and 99. Hit [RETURN] 
after making your choice. 
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Now the screen will clear and the game will begin. The 
computer will ask you to wait a moment while it initializes 
game variables. The three balls will appear on the table 
placed randomly for the first shot. The lower part of the 
screen is used for the scoreboard and information center. In 
the lower left corner is a message board indicating what 
action is expected next or what the result of the last shot 
was. 

To take a shot, you must select three things —- the angle 
or direction to strike your cue ball, the speed with which 
you strike it, and whether to strike it with any special spin 
or English. You will be prompted for these by messages in 
the lower left corner. The messages will be in white when 
white is shooting and in red when red is shooting. When the 
turn changes to the next player, his cue ball will flash on the 
table. Also, a white or red ball is displayed on the scoreboard 
in front of the current shooter’s name. 

Now let’s discuss how a shot is made. First you must 
indicate the direction of the shot. The message board says 
ALIGN SHOT and indicates that the space bar is used to do 
this. On the upper left corner of the perimeter of the table 
are displayed cross hairs of the same color as that of the 
player shooting. When you press the space bar, these cross 
hairs move clockwise around the table. If you hold down the 
[SHIFT] key as well as the space bar, they move coun- 
terclockwise. You may hit the space bar in single strokes or 
hold it down to get repeated movement. Also, holding down 
the lower right cursor movement key instead of the space 
bar causes a rapid movement of the cross hairs around the 
table. The direction of your shot is considered to be from the 
center of the cue ball to the center of the cross hairs. 
Typically, you use the cursor key to get the cross hairs in the 
general area you want, then use the space bar or [SHIFT] 
space bar to fine-tune your shot direction. When the cross 
hairs are positioned properly, press [RETURN] to move on. 

Now you are asked if a SPECIAL SHOT is desired, and 
you are told to use the cursor keys for this. These trick shots 
are done with the aid of the special shot box in the lower 
right corner of the screen. You will notice cross hairs in the 
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center of this box. By using the four cursor movement keys 
(the two keys in the lower right corner of the keyboard 
either SHIFTed or not), you can move the cross hairs around 
the box. This box is to be viewed as the front plane of the 
ball as the player strikes it with the cue stick. That is, if the 
cross hairs are to the left of center, the player is striking the 
ball to the left of center and thus imparting left spin or 
English on the ball. Similarly, right English can be 
imparted. When the cue ball hits its first rail (another word 
for cushion), these spins will cause it to bounce off with 
exaggerated movement in the direction of the spin. The 
further the cross hairs are from the center, the stronger is 
the spin and the stronger is its effect. If the cross hairs are 
placed below center, the ball is spinning backwards as it is 
struck. This effect, called draw, causes the cue ball to move 
back in the direction it came from upon striking an object 
ball. The more the object ball is struck Square on and the 
further below center the cross hairs are placed, the greater 
the effect of draw. Finally, if the cross hairs are placed 
above center, top spin will be imparted to the cue ball. This 
effect, called follow, causes it to continue forward with 
accelerated movement upon collision with an object ball. 
Just as in real billiards, any up or down spin on the cue ball 
dissipates after a collision with an object ball, but side spin 
remains. After a cue ball bounces off a cushion, all spins are 
considered to dissipate. When you have selected any desired 
spin with the cross hairs, indicate this by hitting the 
[RETURN] key. Most of the time, you will not need any 
special shot and will hit the [RETURN] key immediately. By 
discriminating use of these special shots, all kinds of 
otherwise impossible shots can be made. 

Lastly, the speed at which the cue ball is struck must be 
selected. You can choose any number from 1 to 9, with the 
larger numbers being stronger shots. Simply press a number 
from 1 to 9, and the shot will occur. 

Each shot is shown graphically as it develops. You will 
have fun watching the shot progress and seeing if you’ve 
planned it correctly. It is shown in a kind of slow motion so 
you can see exactly what’s happening. The display of 
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collisions is especially slow. We’re tempted to say that this 
is intentional so you can study the exact physics and 
collision angles better. However, the truth is that the slower 
movement occurs because of the time it takes the computer’s 
BASIC program to perform the calculations involved in 
determining the results of a collision. By the way, at faster 
speeds, and especially with exaggerated spins, the shot 
dynamics become a little unpredictable. You may see some 
funny looking collisions or even possibly a ball moving 
through another one. This mirrors real life in that the 
stronger, most exaggerated shots are the hardest to control 
successfully. And don’t worry if you occasionally find 
yourself using a little body English to nudge the balls. 
Though it can’t really help, it can’t really hurt, either. 

When the shot finishes, its result is displayed in the 
message area. If successful, the computer says NICE SHOT, 
the player’s score is incremented, and he is prompted to 
shoot again. If unsuccessful, the player is told why with one 
of two messages. He may may see the message BOTH NOT 
HIT meaning that the cue ball never struck both object 
balls. The other possible message is # RAILS ONLY 1, 
meaning that the cue ball had hit only one rail at the time 
the second object ball was struck and more rails were 
required. Of course, this latter message may indicate that 
only zero, or perhaps only two rails were hit, as appropriate. 
When the computer shoots, the message MY SHOT is 
displayed, and the computer takes its turn. You'll find the 
computer an unpredictable opponent. Sometimes it'll make 
many good shots in succession, and sometimes iv’ll have its 
long dry spells, too. 

The game continues with players taking turns until the 
prescribed number of innings is completed. The computer 
acknowledges the winner (or indicates a tie) then asks that 
any key be hit to proceed. When this is done, the title screen 
reappears. Hit a key again for the option menu. Now you 
may continue with another game of HOTSHOT or end the 
program to return to the real world. 
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SAMPLE RUN 


HOTS HOT 


COPYRIGHT 1984 DILITHIUM PRESS 


FROM THE BOOK ‘MIND MOVES’ 


BY TOM RUGG AND PHIL FELDMAN 


PRESS A KEY TO BEGIN 


The title screen is displayed, and a key must be hit to begin the option 
menu. 


OPTION MENU 
(JUST YOU 


ConpureR 


» 3, OR 4 


A 2 is pressed for a two-player game. The players’ names are THE FROG 
and BIG ED. 
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3 = sti CEASIEST GAME> 
= CARGE CHARDEST GAME> 
PRESS i, 2, OR 3 


BUPMRER OF CUSHIONS, REQUIRED? 


Being experienced players, they press 3 for both the table size and the 
number of cushions required. They decide to play a 15-inning game. 


SPHHHHSSHHSSSHSHHHSHSHOHHHHHHOHHHOOOS 
® 


Cex youn 


OOH HHHHHHHHHOO 


M 
0 
V 
E 
5 


e 
POPOO OOO OOOOOOHOOHHHOOOHHOOOOOOS 
3 CUSHION BILLIARDS - INNING 7 OF 15 


ALIGN @ THE FROG 7 SPECIAL 
ghgr r 
¢ AR) BIG ED 3 SHOT BOX 


With the score 7 to 5 in favor of The Frog, he contemplates his shot to 
begin the seventh inning. He positions the cross hairs near the center of 
the right cushion to aim his white cue ball toward the blue object ball. 
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GOOG HHHHHHHHHHHHHHHHHHHHHHHHOHOD 
® 


Vzay FSOBN 


SSO SCSCOSHHOCOO OOS 


Cam «cas 


® 
hppa pparprprrrarrrritirrirrryyy 


CUSHION BILLIARDS - INNING 7 OF 45 
ECIAL SPECIAL 
HOT - 

RSR) SHOT BOX 


The Frog selects moderate right English for his shot. He hopes to hit the 
blue ball below center then to have his cue ball strike the right, bottom, 
and left cushions before colliding with the other (red) object ball. 


$ 
¢ 


OOD wil ee 


PHSHHSHSHSHSHSHSHSOHHSOHHSHHHHHHHHHHHHHOD 


[Ee x FOUN 


SOSH OOOOOCOOO OOS 


al 
0 
V 
E 
5 


® 
piobppbppppppprprraraririiirsiiir ys: 


3 CUSHION BILLIARDS - INNING 7 OF 15 

SeeeD @THE FROG 7 SPECIAL 
on 

(1-9) BIG ED 5 SHOT BOX 


A speed of 4 will be used. When 4 is pressed, the shot is displayed 
graphically. 
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SHSOSCHSHSCSCSCHOCOCOCOHOO 
ree xy ows 


Tn ee ee Le 


4 
900000000000 000900000000000000046 
3 CUSHION BILLIARDS - INNING 7 OF i 


aetes" @TwHE FROG 7 SPECIAL 
i- BIG ED 5 SHOT BOX 


The shot is shown in mid-action. The blue ball has been hit and the white 
cue ball is heading toward the left rail after striking the right and bottom 
rails. 


PEs kk ected tated da dettadadatatatadadadady’ 


SHFSCOCHCSCHCSCOCSOCSOOOSCS 


 AAAAAAAAAAAAA AAA AA AA bpp ppiibind 


> CUSHION BILLIARDS - INNING 7 OO! 
NIE Pee FROG 8 _SPECIAL 
Hi 

Mae a ED “SHOT BOX 


The Frog pulls it off. The computer acknowledges the nice shot. It will 
still be The Frog’s turn in the seventh inning. 
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dich itt cbc belated a dalodadctady' 


HOTSHOT 


crx geen 


® 
@ 
® 
s 
4 
® 
Sd 
7 
7 


— Te 


Ceirry 


@ 
¢ 
@ 
: 
AA AAAAAAAAAAAAAAAADAADAADAADAADL 
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After a hard-fought, grueling match, The Frog wins by a score of 19 to 
17. Big Ed is ready to hit a key to reinitialize the game for a rematch. 


16@ 
11¢ 
120 
13¢ 
14@ 
15@ 
160 
176 
18@ 
198 
200 
219 
220 
230 
240 
250 
260 
270 
280 
290 
366 
319 
320 


REM: 
REM: 
REM: 


GOTO 8390 
DD=D3-D4: EE=E3-E4:U=SQR (D3*D3+D4*D4+E3*E3+E4*E4) 
IF X4=X3 THEN AL=SGN (Y4-Y3) *HP:GOTO 179 

AL=ATN ((Y4-Y3) /(X4-X3) ) 

IF DD=@ THEN GA=SGN (EE) *HP:GOTO 190 

GA=ATN (EE/DD) 
TH=AL-GA:IF TH>HP THEN TH=TH-PI 

IF TH<-HP THEN TH=TH+PI 

SI=SIN (TH) :CI=COS (TH) :SA=SIN (AL) :CA=COS (AL) 
G3=U*SI*SA+D4:H3=-U*SI*CA+E4 

G4=U*CI *CA+D4:H4=U*CI *SA+E4 

RA=SQR (G3 *G3+G4 *G4+H3*H3+H4*H4) /U 
H3=H3/RA:G4=G4/RA:H4=H4/RA 


G3= 


G3/RA: 


RETURN 


IF 
IF 
IF 
IF 
IF 
IF 


XA<LE 
XA>RE 
YA<UE 
YA>BE 
XB<LE 
XBORE 


PROGRAM LISTING 


HOTSHOT 
COPYRIGHT 1984 DILITHIUM PRESS 
BY PHIL FELDMAN AND TOM RUGG 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


XA=LE: DA=-DA:CC=CC+1: EA=EA-SE:SE=@:TE=@ 
XA=RE: DA=~DA:CC=CC+1: EA=EA+SE:SE=@0:TE=@ 
YA=UE: EA=-EA:CC=CC+1:DA=DA+SE:SE=0:TE=@ 
YA=BE: EA=-EA:CC=CC+1: DA=DA-SE: SE=@: TE=@ 
XB=LE:DB=-DB 
XB=RE:DB=-DB 
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IF YB<UE THEN YB=UE: EB=-EB 

IF YB>BE THEN YB=BE:EB=-EB 

IF XC<LE THEN XC=LE:DC=-DC 

IF XC>RE THEN XC=RE:DC=-DC 

IF YC<UE THEN YC=UE:EC=-EC 

IF YC>BE THEN YC=BE:EC=-EC 

RETURN 

CC=0:BH=0:FH=-1 

FOR K=l1 TO NN 

XA=XA+DA: YA=YA+EA: XB=XB+DB: YB=YBt+EB: XC=XC+DC: YC=YC+t+EC 
GOSUB 278 

X=XA-XB: Y=YA-YB 

IF X*X+Y*Y>C THEN 5508 

BH=BH OR 1:IF BH=3 THEN FH=CC:BH=4 

IF XA<XB THEN 5190 

X3=XB: Y3=YB: X4=XA: Y4=YA:D3=DB: E3=EB:D4=DA: E4=EA 
GOSUB 1490:DA=G4: EA=H4:DB=G3:EB=H3:IF TE=@ THEN 540 
DA=DA+TE*D4: EA=EA+TE*E4:TE=@0:GOTO 5480 

X3=XA: Y3=YA:X4=XB: Y4=YB:D3=DA: E3=EA:D4=DB: E4=EB 
GOSUB 140:DB=G4: EB=H4:DA=G3:EA=H3:IF TE=@ THEN 5498 
DA=DA+TE*D3: EA=EAtTE*E3: TE=@ 

GOSUB 78@0:X=XA-XB: Y=YA-YB:IF X*X+Y*Y<=C THEN 5480 
X=XA-XC3: Y=YA-YC 

IF X*X+Y*Y>C THEN 6690 

BH=BH OR 2:IF BH=3 THEN FH=CC:BH=4 

IF XA<XC THEN 6290 

X3=XC: Y3=YC: X4=XA: Y4=YA:D3=DC: E3=EC:D4=DA: E4=EA 
GOSUB 14@0:DA=G4:EA=H4:DC=G3:EC=H3:IF TE=@ THEN 6598 
DA=DA+TE*D4:EA=EAt+TE*E4:TE=@0:GOTO 659 

X3=XA: Y3=YA:X4=XC: Y4=YC:D3=DA: E3=EA:D4=DC: E4=EC 
GOSUB 14@:DC=G4: EC=H4:DA=G3:EA=H3:IF TE=@ THEN 659 
DA=DA+tTE*D3: EA=EA+TE*E3: TE=9@ 

GOSUB 78@:X=XA-XC: Y=YA-YC:IF X*X+Y*Y<=C THEN 6598 
X=XB-XC: Y=YB-YC 

IF X*X+Y*Y>C THEN 7490 

IF XB<xXC THEN 7180 

X3=XC: Y3=YC:X4=XB: Y4=YB:D3=DC: E3=EC:D4=DB: E4=EB 
GOSUB 140:DB=G4: EB=H4:DC=G3: EC=H3:GOTO 7390 

X3=XB: Y3=YB: X4=XC: Y4=YC:D3=DB: E3=EB:D4=DC: E4=EC 
GOSUB 140:DC=G4: EC=H4: DB=G3: EB=H3 

GOSUB 78@:X=XB-XC:Y=YB-YC:IF X*X+Y*Y<=C THEN 730 
POKE P3,XA:POKE P4,YA:POKE P5, XB: POKE P6,YB 

POKE P7,XC:POKE P8,YC 

NEXT:GOSUB 2790 

RETURN 

POKE P3,XA:POKE P4,YA:POKE P5,XB: POKE P6,YB 

POKE P7,XC:POKE P8,YC 

XA=XA+DA3: YA=YA+EA: XB=XB+DB: YB=YB+EB: XC=XC+DC3: YC=YCt+EC 
GOSUB 2790 

RETURN 

XA=@:XB=0:XC=0: YA=0: YB=0: YC=0: X=0: Y= 
DA=@:DB=@: DC=@: EA=@: EB=@: EC=9 

LE=@:RE=@:UE=0:BE=@ 

D3=0:D4=0:E3=0:E4=0 
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878 X3=0:X4=0:Y3=0:Y4=0:G63=0:G4=0:H3=0:H4=9 

888 DD=0:EE=0:U=9:AL=@0:GA=@:TH=@: RA=G 

898 SI=8:CI=0:SA=0:CA=9 

988 C=99:PI=3.14159265:HP=PI/2 

910 P3=0:P4=0:P5=0: P6=0:P7=0: P8=0: V=53248 

920 FH=0:BH=0:CC=0:TE=@0:SE=9@ 

938 K=0:NN=@ 

940 ZA=0:ZB=@ 

958 HCS=CHRS$ (147) :HMS=CHRS (19) :BS=CHRS (32) 

968 RRS=CHRS (28) :BBS=CHRS (31) :WWS=CHRS (5) : LBS=CHRS (154) 
970 FF=1 

988 GOSUB 1168:GOSUB 3428:GOSUB 2999:GOSUB 2500:GOSUB 2269 
998 B7S=BS+BS:B7S=B7S+B7S+B7S+BS$ 

1808 GOSUB 29194 

1910 P3=V+4: P4=V+5: P5=V+6: P6=V+7:P7=V+8: P8=V+9 

18028 GOSUB 13390 

1830 GET RS:IF RS<>"" THEN 1030 

1948 POKE V+21,28:GOSUB 2910:PRINT BBS 

1858 CR=23:FOR CD=19 TO 23:GOSUB 2949 

106@ PRINT B7S;B7S;BS;BS;:NEXT 

1878 CD=21:CR=24:IF FL>1 THEN 1999 

1888 GOSUB 294@:PRINT"GAME OVER":GOTO 1130 

1898 CD=20:IF ZA>ZB THEN 1120 

1108 IF ZB>ZA THEN CD=22:GOTO 1129 

111@ CD=21:GOSUB 294@:PRINT"TIE GAME":GOTO 113@ 

11280 GOSUB 294@:PRINT CHRS (95) ;BS; "WINNER" 

113@ GOSUB 2910:PRINT"HIT ANY":PRINT"KEY TO":PRINT"PROCEED" 
1148 GET RS:IF RS="" THEN 1140 

115@ CLR:GOTO 13@ 

1168 POKE V+21,@:RESTORE 

1178 POKE V+23,@:POKE V+28,@:POKE V+29,@:POKE V+16,@ 
118@ ADD=832: PAGE=ADD/64 

1198 FOR J=ADD TO ADD+29:READ BYTE: POKE J,BYTE:NEXT 
1200 FOR J=ADD+3@0 TO ADD+63:POKE J,@:NEXT 

121@ DATA 0,60,0,0,255,0,1,255,128,1,255,128,3,255,192 
1220 DATA 3,255,192,1,255,128,1,255,128,0,255,0,8,60,9 
1230 FOR J=2@42 TO 2046:POKE J,PAGE:NEXT 

1248 ADD=896: PAGE=ADD/64 

1250 FOR J=ADD TO ADD+29:READ BYTE: POKE J,BYTE:NEXT 
1260 FOR J=ADD+3@ TO ADD+63:POKE J,O:NEXT 

1276 DATA @,24,0,0,24,0,0,24,0,0,24,0,3,255,192 

1280 DATA 3,255,192,0,24,0,0,24,0,0,24,0,8,24,G 

1298 POKE 2048,PAGE:POKE 2041,PAGE 

1398 FOR J=1 TO 5:POKE V+4@+J,VAL (MIDS ("12612",J3,1)):NEXT 
1318 POKE V+1@,82:POKE V+11,217:POKE V+1l2,82:POKE V+13,233 
1328 RETURN 

1330 XB=(RE-LE) /4+LE: XA=XB+ (RE-LE) /4:XC=XA+(RE-LE) /4 
1348 Q=INT((BE+tUE) /2)-2@ 

1358 YA=Q+RND (1) *4@: YB=Q+RND (1)* 40: YC=Q+RND (1) *4Q 

1360 POKE V+4,XA:POKE V+5,YA:POKE V+6,XB:POKE V+7,YB 
1378 POKE V+8,XC:POKE V49.,.YC 

1388 FOR M=1 TO NI 

1396 CD=18:CR=21:PRINT BBS;:GOSUB 2949 

149@ PRINT B7S;B7S:GOSUB 294@ 


ol 


1410 
1429 
1430 
1440 
14590 
1460 
1478 
1488 
1490 
1500 
1519 
1520 
1530 
1548 
155@ 
1568 
1578 
158@ 
1598 
1600 
16190 
1620 
1638 
1649 
1658 
1669 
1670 
16890 
1696 
176@ 
1710 
1720 
1738 
1740 
1758 
176@ 
177@ 
1780 
1798 
1800 
18190 
182¢ 
1838 
184@ 
1858 
1868 
1879 
1880 
1890 
1906 
19190 
1920 
193@ 
1948 
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PRINT"- INNING";M;"OF":NI 

GOSUB 2910:DB=0:EB=@:DC=@:EC=9@ 

POKE V+21,@0:POKE V+39,1:POKE V+4@,1:PRINT WWS; 

IF FL>1 AND M>1l THEN GOSUB 2028 

POKE V+21,6@ 

IF FF=@0 THEN 1500 

FOR Q=l1 TO 5:FOR J=l TO 300:NEXT 

POKE V+21,56:FOR J=l TO 30@0:NEXT 

POKE V+21,6@0:NEXT 

Q=4:GOSUB 172@ 

IF FH<NC THEN 155@ 

PRINT"NICE": PRINT" SHOT" :FOR Q=l TO 3000:NEXT: ZA=ZA+1 
CD=20:CR=18:PRINT LBS:GOSUB 294@0:PRINT ZA;WWS; 
GOSUB 2910:DB=@:EB=@0:DC=@0:EC=@:POKE V+21,60:GOTO 1500 
GOSUB 1868 

IF FL=l THEN 1700 

GOSUB 291@:DB=9:EB=@:DC=@0:EC=9@ 

POKE V+21,@:POKE V+39,2:POKE V+4@,2:PRINT RRS; 
GOSUB 2020:POKE V+21,92 

IF FF=@ THEN 1640 

FOR Q=l1 TO 5:FOR J=1l TO 300:NEXT 

POKE V+21,88:FOR J=l TO 300:NEXT 

POKE V+21,92:NEXT 

Q=3:GOSUB 1720 

IF FH<NC THEN 1699 

PRINT"NICE":PRINT"SHOT":FOR Q=l TO 3000:NEXT: ZB=ZBtl 
CD=22:CR=18:PRINT LBS$:GOSUB 294@8:PRINT ZB;RRS; 
GOSUB 291@4:DB=@:EB=@:DC=@0:EC=@0:POKE V+21,92:GOTO 1649 
GOSUB 18698 

NEXT 

RETURN 

GET RS:IF RS<>"" THEN 172@ 

IF FL=Q THEN GOSUB 2078:GOTO 1848 

PRINT BS; "ALIGN":PRINT BS;"SHOT":PRINT"(S BAR)" 
GOSUB 21308:GOSUB 29190 

PRINT" SPECIAL":PRINT BS; "SHOT":PRINT"(CRSR)" 

GOSUB 19198 

GET RS:IF RS<>"" THEN 1780 

GOSUB 2910:PRINT"SELECT": PRINT"SPEED": PRINT" (1-9) " 
GET RS:IF RS="" THEN 1800 

IF RS<"1" OR RS>"9" THEN 1800 
NN=20+15*VAL (RS) :U=2+VAL (RS) *0.7 

RA=SQR (DA*DA+EA*EA) /U: DA=DA/RA: EA=EA/RA 

GOSUB 488:GOSUB 2910:PRINT BBS; 

RETURN 

PRINT"NO GOOD";LBS 

IF FH<® THEN PRINT BS; "BOTH":PRINT"NOT HIT":GOTO 1890 
PRINT"# RAILS": PRINT"ONLY";FH 

FOR Q=l1 TO 3000:NEXT 

RETURN 

X=224:Y=225:POKE V+2,X:POKE V+3,Y 

POKE V+21,PEEK(V+21) OR 2 

GET RS:IF RS="" THEN 1939 

IF RS=CHRS$ (157) AND X>2@@0 THEN X=X-1 
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195@ 
196@ 
1978 
1980 
199@ 
2600 
20190 
2020 
2630 
2049 
2050 
2860 
2070 
2086 
2090 
21900 
2119 
2129 
2130 
2140 
2150 
2160 
2178 
2180 
2190 
2200 
2219 
2220 
2230 
2246 
2250 
2260 
2270 
22890 
2290 
2300 
23190 
2328 
2338 
2340 
2350 
2360 
2378 
2380 
2390 
2400 
2419 
2420 
2430 
2446 
2450 
2469 
2470 
248G 
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IF RS=CHRS$(29) AND X<248 THEN X=X+1l 

IF RS=CHRS (145) AND Y>209 THEN Y=Y-1 

IF RS=CHRS$(17) AND Y<241 THEN Y=Y+#l 

IF RS=CHRS (13) THEN 2000 

POKE V+2,X:POKE V+3,Y:GOTO 1939 

SE= (X-224) /4: TE= (225-yY) /8 

RETURN 

Q=XA: XA=XB: XB=Q: Q=YA: YA=YB: YB=Q 

Q=PEEK (V+41) :POKE V+41,PEEK (V+42) : POKE V+42,Q 
Q=PEEK (V+4):POKE V+4, PEEK (V+6) : POKE V+6,Q 

Q=PEEK (V+5) :POKE V+5, PEEK (V+7):POKE Vt+7,Q 

RETURN 

PRINT"MY SHOT" :SE=@:TE=0:DA=XB-XA: EA=YB-YA 

FOR K=l TO 150@0:NEXT 

NN=58+RND (1) *100:U=4+3*RND (1) 

RA=SQR (DA*DA+EA*EA) /U: DA=DA/RA: EA=EA/RA 

DA=DA* (9. 75+@8.5*RND (1)) :EA=EA* (@.75+@0.5*RND(1)) 
RETURN 

J=1:SSS=CHRS (16@) :RTS=CHRS (13) 

POKE V+21,PEEK(V+21) OR 1 

POKE V,XP(J):POKE V+1,YP(J):POKE V+16,ZP (J) 

GET RS:IF RS="" THEN 2169 

IF RS=BS THEN J=J+1l 

IF RS=SSS THEN J=J-1 

IF RS=RTS THEN 224@ 

IF RS=CHRS (29) THEN J=J+2@ 

IF J>NP THEN J=1 

IF J<l THEN J=NP 

GOTO 21508 

DA=XP (J)+256*ZP(J)-XA: EA=YP(J)-YA 

RETURN 

ON TS GOTO 2270,2340,241G6 

LE=40: RE=193:UE=71:BE=138 

NP=558:DIM XP (NP) ,YP (NP) ,ZP (NP) 

FOR J=1 TO 184:XP (J) =24+J3:YP (J) =56:ZP (J) =@:NEXT 

FOR J=185 TO 280:XP(J)=208:YP(J)=J-128:2P(J)=O:NEXT 
FOR J=281 TO 463:XP (J) =488-J: YP (J) =152:2P (J) =O0:NEXT 
FOR J=464 TO 558:XP(J)=25:YP(J)=615-J:ZP(J)=O0:NEXT 
GOTO 249@ 

LE=4@:RE=224: UE=71:BE=154 

NP=654:DIM XP (NP) ,YP(NP) ,ZP (NP) 

FOR J=l TO 216:XP(J)=24+3:YP(J)=56:ZP(J)=@0:NEXT 

FOR J=217 TO 328:XP (J) =240: YP (J) =J-160:2P(J) =O@:NEXT 
FOR J=329 TO 543:XP (J)=568-J: YP (J)=168:2P(J)=0:NEXT 
FOR J=544 TO 654:XP (J) =25:YP(J)=711-J:Z2P (J) =@:NEXT 
GOTO 249@ 

LE=4@:RE=255:UE=71:BE=179 

NP=750:DIM XP (NP) ,YP(NP) ,ZP (NP) 

FOR J=l TO 231:XP(J)=24+3: YP (J)=56:2P(J)=O:NEXT 

FOR J=232 TO 248:XP(J) =J-232:YP(J)=56:2P(J)=l1:NEXT 
FOR J=249 TO 376:XP (J)=16: YP (J)=J-192:2P(J)=1:NEXT 
FOR J=377 TO 392:XP (J) =392-J:YP (J) =184:ZP (J) =1:NEXT 
FOR J=393 TO 623:XP(J)=648-J:YP(J)=184:2ZP(J)=0:NEXT 
FOR J=624 TO 75@:XP (J) =25:YP (J) =807-J:ZP (J) =QO:NEXT 


o3 


MIND MOVES 


2498 RETURN 

2500 POKE 53280,13:POKE 53281,13:PRINT LBS;HCS; 

25190 VS=CHRS (98) :DS=CHRS (122) :HS=CHRS (99) 

2520 CAS=CHRS (176) : CBS=CHRS (174) :CCS=CHRS$ (173) :CDS=CHRS (189) 
2530 SS="":HHS=""3;DDS="" 

2548 FOR J=l TO 4:SS=SS+HS:NEXT 

2550 FOR J=l TO (16+4*TS) :HHS=HHS+HS:NEXT 

2568 FOR J=l TO (20+4*TS) :DDS=DDS+DS:NEXT 

2570 PRINT CHRS (117) ;HHS;S$;CHRS (105) 

2580 PRINT VS;DDS;VS 

2590 PRINT V$;DS;CAS;HH$;CBS;DS;VS$ 

2600 FOR J=l TO (7+2*TS) 

2610 PRINT VS;DS;VS;SPC(16+4*TS) ;VS;D$;VS:NEXT 

2620 PRINT VS;DS;CCS;HHS;CDS;DS;V$ 

2630 PRINT VS$;DDS$;VS 

2640 PRINT CHRS(1@6) ;HHS$;SS$;CHRS (197) 

2650 HHS=HS$:FOR J=l1 TO 13:HHS=HHS+HS$:NEXT 

2660 SS=HS+HS:DDS=VS+BS+BStVS+BStBS+V$ 

2678 CR=@8@:CD=19:GOSUB 2948 

2680 PRINT SPC(7);CAS;HHS;CBS;CAS;S$;CHRS (178) ;S$;CBS$ 
2698 PRINT SPC (7); VS;SPC (14) ;VS;DD$S;B$;"SPECIAL" 

2700 PRINT SPC(7) ;VS;SPC (14) ;V$;CHRS(171);S$;CHRS (123); 
2710 PRINT SS;CHRS (179) ;CHRS (95) 

2720 PRINT SPC(7);V$;SPC(14);V$;DDS$;BS$; "SHOT BOX" 
27308 PRINT SPC (7) ;CCS;HHS;CDS;CCS;S$;CHRS (177) ;S$;CDS; 
2748 CD=20:CR=18:GOSUB 29498 

275@ PRINT NAS;TAB(18);ZA 

2768 CD=22:GOSUB 2948 

2770 IF FL>1 THEN PRINT NBS;TAB(18) ;ZB 

2788 CD=2:CR=35:PRINT RRS;:GOSUB 2948 

27908 DDS=CHRS (157) +CHRS (17) +CHRS (17) 

2800 FOR J=l TO 7:PRINT MIDS ("HOTSHOT",J,1);DDS; :NEXT 
2810 CD=1:CR=38:PRINT WWS$:GOSUB 2948 

2828 DDS=CHRS(157)+CHRS (17) :SS="FROM"+B$ 

2830 FOR J=1 TO 5:PRINT MIDS (SS$,J,1);DD$;:NEXT 

2840 PRINT BBS; 

2850 FOR J=1 TO 10:PRINT MIDS("MIND MOVES",J,1);DDS; :NEXT 
2868 CD=18:CR=8:GOSUB 29490 

2878 PRINT NC;"CUSHION BILLIARDS" 

2880 GOSUB 2910:PRINT RRS;"JUST A" 

2898 PRINT"MOMENT": PRINT'PLEASE" 

2900 RETURN 

2918 CR=@:CD=20:GOSUB 2949 

2920 FOR J=l TO 3:PRINT B7S:NEXT 

2938 GOSUB 294@8:RETURN 

2948 PRINT HMS:IF CD=@ THEN 2960 

2950 FOR K=l TO CD:PRINT CHRS(17);:NEXT 

2960 IF CR=@0 THEN 29890 

2970 FOR K=l TO CR:PRINT CHRS(29) ;:NEXT 

2988 RETURN 

2998 PRINT HCS 

3000 PRINT TTS;SPC(3);"OPTION MENU":PRINT 

3010 PRINT"1 - 1 PLAYER (JUST YOU)" 

3020 PRINT"2 - 2 PLAYERS" 


o4 


3839 
3849 
385 
3860 
3878 
308¢ 
3098 
3190 
31198 
3120 
3138 
314@ 
3158 
3160 
3178 
3188 
3199 
3208 
3219 
3229 
3236 
3248 
325@ 
3260 
3270 
3286 
3290 
3308 
3319 
3320 
3330 
3346 
3358 
3368 
33/80 
338G 
3398 
3488 
3410 
3428 
3430 
3449 
3458 
3468 
3478 
3486 
3498 
3569 
3510 
3520 
3538 
3540 
355@ 
3566 
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PRINT"3 -— YOU VS. COMPUTER" 

PRINT"4 -—- END PROGRAM" 

PRINT: PRINT"PRESS 1, 2, 3, OR 4" 

GET RS:IF LEN(RS)=@ THEN 3060 

IF RS<"1" OR RS>"4" THEN 3068 

Q=VAL (RS$):ON Q GOTO 38990,3100,31798,3578 
NAS="YOU":NBS="":FL=1:GOTO 3260 
NAS=""sNBS=""s:PRINT: PRINT: PRINT 
INPUT"NAME OF FIRST PLAYER";NAS 

IF LEN (NAS)=8 THEN 3110 

INPUT"NAME OF SECOND PLAYER";NBS 

IF LEN(NBS)=@ THEN 3130 
NAS=LEFTS (NAS,8) :NBS=LEFTS (NBS,8) 
FL=2:GOTO 3260 

PRINT: PRINT: PRINT: PRINT"WHO SHOOTS FIRST?":PRINT 
PRINT"1] — YOU" 

PRINT"2 -— COMPUTER" 

PRINT: PRINT"PRESS 1 OR 2" 

GET RS:IF LEN(RS)=@ THEN 32190 

IF RS<"1" OR RS>"2" THEN 3210 

Q=VAL (RS) :ON Q GOTO 3240,325@ 

NAS="YOU": NBS="COMPUTER" : FL=3:GOTO 3260 
NAS="COMPUTER" :NBS="YOU":FL=4 

PRINT: PRINT: PRINT: PRINT"TABLE SIZE?":PRINT 
PRINT"1 — SMALL (EASIEST GAME)" 

PRINT"2 — MEDIUM 

PRINT"3 -— LARGE (HARDEST GAME)" 

PRINT: PRINT"PRESS 1, 2, OR 3" 

GET RS:IF LEN(RS)=@ THEN 33190 

IF RS<"1" OR RS>"3" THEN 3310 

TS=VAL (RS) : PRINT: PRINT: PRINT 

PRINT"NUMBER OF CUSHIONS REQUIRED?" 
PRINT"PRESS @, 1, 2, OR 3" 

GET RS:IF LEN(RS)=@0 THEN 3360 

IF RS<"@" OR RS>"3" THEN 33690 

NC=VAL (RS): PRINT: PRINT: PRINT 

INPUT"NUMBER OF INNINGS (99 MAX)";NI 
NI=INT(NI):IF NI<l OR NI>99 THEN 3390 
RETURN 

GET RS:IF RS<>"" THEN 3420 

PRINT CHRS (142) ;CHRS (8) ;HCS 

POKE 5328@0,14:POKE 53281,15:PRINT WWS 
TTS="Ho OT SAO: Tt" 

PRINT:PRINT:PRINT TAB(12);TTS:PRINT:PRINT 
PRINT TAB(4);"COPYRIGHT 1984 DILITHIUM PRESS" 
PRINT: PRINT: PRINT: PRINT 

PRINT TAB(6);"FROM THE BOOK 'MIND MOVES'" 
PRINT: PRINT 

PRINT TAB(5);"BY TOM RUGG AND PHIL FELDMAN" 
FOR J=l TO 6:PRINT:NEXT 

PRINT TAB(9);"PRESS A KEY TO BEGIN" 

GET RS:IF LEN(RS)=@0 THEN 35490 

Q=RND (-TI) 

RETURN 
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3578 POKE V+21,9@ 

358@ PRINT CHRS(142);CHRS (9) ;CHRS(154) ;HCS;:CLR 
3598 POKE 53280,14:POKE 53281,6:GOTO 99998 

9998 END 


READY. 


EASY CHANGES 


1. If you prefer not to have the cue balls flash at the 
beginning of each player’s turn, change the value of FF 
to zero in line 970 as follows: 


970 FF=0 


2. The speed of the shot is controlled by the variables NN 
and U set in line 1820 after you enter your speed 
number from 1 to 9. If you’d like to experiment with 
very fast shot speeds, you can change the formulas for 
these variables. NN controls the number of time slices 
for each shot, and U the distance the ball moves during 
one time slice. To get really fast movement for high 
speed numbers, try changing U in line 1820 as follows: 


1820 NN=20+15*VAL(R$):U = 1.3 + VAL(R$)*1.4 


You might also want to increase NN in conjunction with 
this as follows: 


1820 NN=10+25*VAL(QR$):U=1.3+VAL(R$)*1.4 


If you would like to slow down the animation to more 
precisely view the shots, try: 


1820 NN=25+10*VAL(R$):U =2 + VAL(R$)*0.3 


Experiment with different formulas, if you wish. 
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3. Green is used for the color of the table, since billiard 
tables traditionally are surfaced in green felt. But, if 
you would like another color, the background colors are 
set by the POKE statements in line 2500. For a yellow 
table and border try: 


2500 POKE 53280,7:POKE 53281,7:PRINT 
LB$;HC$; 


Consult your reference manual for the POKE arguments 
needed to generate different colors. 


4. If you want to try an extremely difficult game variation, 
increase the cushion requirement up to nine. Make these 
changes to allow anything from zero- to nine-cushion 
billiards: 


3350 PRINT“PRESS 0-9” 
3370 IF R$<“0” OR R$>“9” THEN 3360 


PROGRAMMER’S NOTEBOOK 


The action graphics in HOTSHOT take advantage of the 
sprite graphics capabilities of the Commodore 64. Only two 
unique sprite shapes are used, one for the balls and one for 
the cross hairs. Sprites 0 and 1 are the cross hairs used 
during shot selection, sprites 2-4 are the three billiard balls, 
and sprites 5-6 are the two balls used in the scoreboard to 
indicate the current shooter. 

Animation is accomplished by a time-slicing technique. 
Once the speed of the shot is determined, the variable NN is 
set to the number of time slices. The loop at lines 415-760 
processes these time slices. During a time slice, each ball’s 
position is incremented, collisions with the other balls and 
the table cushions are checked and processed. The three 
balls are denoted with the suffixes A, B and C. The current 
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cue ball (white or red) is the A ball, the other player’s cue 
ball is the B ball, and the blue ball is the C ball. Thus, the 
positions and colors of the A and B balls must be switched 
each time the shooter changes. This is done by the 
subroutine at 2020. 

Let’s take a look at each time slice. First the X and Y 
positions of each ball are updated in line 420. Then the 
subroutine at 270 is called. This checks whether any balls 
are out of bounds and computes their new positions and 
velocities if one bounces off a rail. Special care is required 
to keep track of the number of cushions the A ball has hit 
(CC) and to implement special spins (SE, TE), if any. Nowa 
check must be made to see if any two balls are colliding. 
Instead of using the sprite register (V+ 30) for this, the 
geometric relation typified by lines 440-450 is used to check 
for each possible collision (A with B, A with C, or B with C). 

We don’t have space to go into all the gory details of how 
new velocities are computed after a collision, but here’s a 
brief explanation. We’ll consider a collision between the A 
and B balls as an example. The ball with the smaller X 
position is denoted with the numerical suffix 3, and the 
other ball with the suffix 4. Their X, Y positions and 
velocities are set in either line 480 or 510, depending upon 
which ball is leftmost. Then the collision routine at line 140 
is called. This moves the problem into the frame of reference 
of a motionless 4 ball. That is, the X and Y velocities of the 
4 ball (D4, E4) are subtracted from the 3 ball. The total 
kinetic energy (U) is retained, since it must be conserved 
during the collision. Three key angles are computed: AL (the 
angle between the centers of the balls and the horizontal), 
GA (the angle between the new computed direction of the 3 
ball and the horizontal), and TH (the difference between 
these two angles, which becomes the angle of collision). 
That is, if TH is near zero, the balls are hitting square-on 
and, as TH gets further from 0, the balls are just nicking 
each other. The new X and Y velocities of the colliding balls 
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are functions of these angles and are computed in lines 
220-230. They are then normalized in lines 240-250 to 
conserve the total kinetic energy. 

After returning from the collision routine, the 3 and 4 
velocities (G3, H3, G4, H4) are given to the A and B balls as 
appropriate. This general technique is used for possible 
collisions between any two balls. After a collision, the 
subroutine at line 780 draws the ball locations and updates 
their positions. 

When the A ball is involved in a collision, some special 
care is needed. The Boolean variable BH is used to keep 
track of the balls with which it has collided. If BH becomes 
3, the cue ball has hit both object balls and the variable FH 
is then set to the number of cushions the cue ball has hit. If 
topspin (follow or draw) is present, it is added in line 500 
then is set to zero for the remainder of the shot. 

After each possible collision is processed, the sprite 
position vectors are updated in lines 740-750. This causes 
the balls to move on the screen. Then one time slice is 
completed and the loop at 410 is begun again for the next 
time slice. 

Some random notes of interest. When BASIC encounters 
any variable in a program, it must look it up in its tables. 
Variables at the beginning of these tables will be found 
slightly faster than those farther down. Since smoother, 
faster motion is desired in HOTSHOT, the variables used in 
the collision and time-slice routines need to be defined first. 
Thus the routine at line 830 simply mentions these variables 
to force them high on the variable list. That is the only use 
of lines 830-890. At the beginning of the game, the Y 
position of the three balls is set randomly in line 1350. 
During the game, the [SHIFT] [COMMODORE] Key com- 
bination that toggles between uppercase and lowercase is 
disabled in line 3430. After a normal game termination, it is 
re-enabled in line 3580 with PRINT CHR§(9). If you stop the 
game abnormally, you may need to rectify this by hand, so 
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to speak. If you want to add some of your own coding for 
the Suggested Projects, you can do it between lines 3590 and 
9990. Line 3590 already branches to 9990 as required. 


140-260 
270-390 


400-770 
780-820 
830-970 
980-1150 


1160-1230 
1240-1290 
1300-1320 
1330-1710 


1720-1850 


1860-1900 
1910-2010 
2020-2060 


2070-2120 
2130-2250 
2260-2490 
2500-2900 


2910-2930 
2940-2980 


2990-3410 
3420-3560 


MAIN ROUTINES 


Computes new velocities for ball-to-ball collisions. 
Computes new velocities for ball-to-cushion 
collisions. 

Portrays each shot graphically. 

Updates ball positions and displays them. 
Initializes variables. 

Mainline routine — calls routines to get game 
parameters, initializes screen, plays game, 
acknowledges winner, and inquires about a new 
game. 

Sprite data for the balls. 

Sprite data for the cross hairs. 

Sets sprite colors. 

Sets up first shot, then controls all shots for the 
entire game. 

Controls the routines to get each player’s shot 
selection (alignment, special shots, and speed). 
Prints message when shot is no good. 

Subroutine to get trick shot information. 

Switches sprite position and color values for the red 
and white balls. 

Subroutine to determine computer’s shots. 
Subroutine to get shot alignment position. 

Sets variable information depending on table size. 
Displays the screen containing the billiards table and 
scoreboard. 

Clears the lower left message area and prepares to 
print messages there. 

Moves cursor CR columns right and CD rows down. 
Gets game parameters from the user. 

Displays introductory title and waits for a player to 
hit a key to continue. 
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Resets screen colors and computer parameters at con- 
clusion of the game. 
Ends program. 


MAIN VARIABLES 


X position of the cue ball and two object balls. 
Y position of the cue ball and two object balls. 
X velocities of the three balls. 
Y velocities of the three balls. 


X, Y position and X, Y velocity of leftmost ball ina 
collision. 
As above for the rightmost ball. 


Resultant X, Y velocities for leftmost, rightmost balls 
after a collision. 

Temporary X, Y position. 

Loop and work variables. 

Positions of left, right, upper, bottom edges of table. 


Collision window (i.e., ball diameter squared). 
Difference of X, Y velocities of two colliding balls. 
Total kinetic energy (or velocity). 

Value of pi and pi/2. 

Angle between the centers of two colliding balls. 
Angle of moving ball colliding with stationary one. 
Collision angle (AL-GA). 

Sine, cosine of TH and AL. 


Ratio with which velocities are normalized. 
Memory address of VIC graphics chip (53248). 
Duration (number of time slices) for a given shot. 
Number of innings, number of cushions required. 
Table size (1 =small, 2=medium, 3 = large). 
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Object balls hit (0 =none, 1 =one only, 2 = other only, 
3 = both just hit, 4=both already hit). 

Cushion count (number of rails hit by cue ball). 
Number of rails hit by cue ball when second object 
ball is struck (set to — 1 if both object balls not hit). 
Top English (0 = none, neg = draw, pos = follow). 
Side English (0 = none, neg = left, pos = right). 
Scores of player 1 and player 2. 

Flag (1 = one player game, 2=two humans, 

3 = computer plays second, 4= computer plays first). 
Flash flag (0 = flashing off, 1 = flashing on). 

Poke locations for balls (sprites 2-6). 


Arrays of (X, Y, Extended X) values for the sprite 
locations of the alignment cross hairs. 

Number of values in above arrays. 

Address, memory page, byte value of sprite data. 


Values to move cursor down, right. 

Internal system timer for random number seed. 
User reply string. 

Strings of one, seven blank characters. 

CHR$ argument for carriage return. 

String of program name. 

CHR$ argument for home, clear screen. 

String names of player 1, player 2. 

CHR$ arguments for text colors dark blue, light blue. 
CHR$ arguments for text colors red, white. 
Temporary strings. 


SUGGESTED PROJECTS _ 


1. If you want to speed up the animation, try writing the 
collision and time-slice routines in machine language. 
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Or perhaps try some simplifications in BASIC to these 
routines. This will make them run faster but probably 
at the expense of less realism in the collision angles and 
velocities. 


. Allow for a third player who will use the blue ball as his 
cue ball. 


. Try to improve the subroutine that determines the 
computer’s shots. See if you can compute what a shot 
will look like and adjust how the computer selects the 
angle and speed for its shots. Also, you might allow it to 
use English on its shots, which is not done in the current 
subroutine. 


. You might enjoy implementing some different scoring 
algorithms. You could insist that, for a shot to score, the 
number of required cushions be met exactly. Perhaps 
more points would be awarded the closer a player comes 
to the number of cushions required. Another possibility 
is to have the shooter predict the number of cushions his 
shot will hit, then score him according to how close he 
comes to his prediction. 
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ho was known as the “Schnozzola”? Is there an animal 
with both tusks and horns? Which chess piece cannot 
move backwards? 

If questions like these stimulate your brain, you’ll have a 
ball playing QUIKWIT. Compete against a friend in this 
race to answer trivia-type multiple-choice questions. Play 
with teams when there are more than two of you. And if 
you’re by yourself, you can have a whale of time playing a 
special solo version against the computer. 

This game has many features, including the ability to 
adjust the difficulty of the questions and to handicap the 
players when their skill levels are unequal. We provide 
questions in four categories: Entertainment, Sports, 
Science, and General Information. You can choose which 
ones you want each time you play — even using several 
categories at once if you desire. And we’ll show you how to 
make up and enter your own questions, so you can challenge 
your friends with your own devilish creations. 

EXCITING NEWS! The beauty of QUIKWIT is the 
quality of the questions. They can be clever, entertaining, 
even funny, but they’re always interesting. We commis- 
sioned Penguin Dave, a legendary popular culture and trivia 
expert, to write them. And now, when you use up all the 
questions that come with the program disk, you can order 
more written by the master. These new disks each contain 
over a thousand questions at a bargain price. They are 
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oriented toward both adults and children. If you’re 
interested, please see the enclosed order form. 

By the way, the answers to the three original questions: 
Jimmy Durante, no, and the pawn. 


RULES 


QUIKWIT is essentially a race to correctly answer questions 
as fast as possible. Let’s discuss the basic two-player game 
first, then we’ll describe team play and single-player play. 

The object of the game is to score goals. The first player 
to get five wins. A goal is scored by tugging (some say 
sucking) the white game ball to your end of the court. The 
players have only a fixed amount of time to answer each 
question before the next one is presented. When you answer 
a question correctly, the game ball moves toward your end 
of the court. The distance of this movement is greater the 
faster the question is answered. If you answer incorrectly, 
the ball moves toward your opponent’s end a fixed penalty 
distance (independent of time). 

The questions are displayed in multiple-choice form. You 
can choose to have a maximum of five possible answers 
displayed with each question. Only one answer is correct. 

When a player answers incorrectly, the timer continues 
and the other player is given a chance to answer the 
question. Strategy enters: should you risk an unsure guess 
for the potential profit? Sometimes you must make a guess 
quickly to prevent your opponent from scoring a goal if the 
ball is near his end of the court. 

Team play is a lot of fun and can be done in several 
different ways. Some aficionados like a noisy, lively game in 
which any team member can speak up or yell out an answer 
for the captain to enter. Some allow any player on the team 
to hit an answer key if he thinks he knows the right answer. 
Others prefer a more subdued game in which team players 
rotate to answer questions. Usually then, teammates are not 
allowed to help. 
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In single-player action, the computer takes one end of the 
court. Of course, when a question is asked, only you can 
answer. (After all, the computer knows the right answer.) 
Thus a new wrinkle is added. While you’re thinking, the 
game ball moves toward the computer’s end. This forces you 
to answer some questions right or you'll find the computer 
scoring goals by default. The speed of the movement toward 
the computer’s goal is set by the difficulty level you select. 
No rest for the weary. 


HOW TO USE IT 


The following instructions apply to the disk version of 
QUIKWIT. Appendix B gives you additional instructions for 
the cassette version that you can type in yourself. As we 
explained in telling you How to Use This Book, this is the 
one program that may work less reliably with a cassette 
drive than with a disk drive. 

By now, you probably realize that the program starts by 
displaying its title screen. Press a key and you will be served 
the QUIKWIT option menu, which has six selections for 
your command. Notice that the screen display is now in 
uppercase/lowercase mode and, indeed, will stay there for 
the remainder of the game. 

Briefly, here’s what each option does. Option 1 initiates 
the one-player game that pits you against the computer. 
Option 2 selects the game version for two players (or teams) 
playing against each other. Option 3 is for choosing other 
data files (or combinations of them) from the disk. Option 4 
is to quickly adjust the difficulty of the game to suit your 
taste (and skill level). Option 5 shows you where you are in 
each active data file so that you can continue from that 
point in the next game session if you wish. And good old 
option 6 ends the game so someone else (your parent, child, 
friend, teacher, whoever) can get at the computer or so you 
can go to sleep. Now let’s discuss each option more 
thoroughly. 
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When you press 1 to start the one-player game, the 
QUIKWIT game board appears, the disk whirs, the com- 
puter tells you that it’s initializing data files and reading in 
the first set of questions. 

Note the thin rectangular court with the three balls on it. 
This is the basic play area. You are on the left side in red 
while the computer is on the right side in blue. You try to 
get the white game ball onto your red ball; the computer 
tries to get it onto his blue ball. A goal is scored whenever 
one of you succeeds, and the first to get five goals wins the 
game. 

On the right side of the board is a vertical strip labeled 
TIME BALL with another white ball near the top. When a 
question is asked, this ball starts falling. You have until it 
hits bottom to answer. 

Questions are presented with a list of up to five possible 
answer choices. Only one is the correct answer. Your task, 
of course, is to decide as quickly as possible which one that 
is. Use the number keys 1 to 5 at the upper left of the 
keyboard to make your guess. (Hopefully you’ll know the 
answer, not guess it.) 

A special rule comes up here. Some questions have a 
possible answer like, “all of the other choices” or “none of 
the other choices.” If one of these can be the correct answer, 
it takes precedence over the other choices. For example, if 
the question is “Which of these countries is in Europe?” and 
the four possible answers are “1 — France, 2 — Spain, 3 — 
All of the other choices, 4 — Belgium,” then 3 is the correct 
answer. 

As each question appears, the background flashes black, 
you're told to get ready, and the background flashes back to 
gray. The question appears instantly along with its category 
and its number within that category. You now have to 
answer the question as accurately and quickly as possible. 
Note that the time ball is falling and that the white game 
ball is moving toward the computer’s end. If you do nothing, 
the computer can score without your even hazarding a guess. 

When you think you know the answer (or want to risk a 
guess), hit the appropriate number key. Immediately the 
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message line below the question indicates which key is 
pressed and whether or not the answer is correct. The 
number of the correct answer is outlined in black on the 
question board. If you answer right, you hear a cheerful 
two-note beep, and the game ball moves toward your end. 
The faster you answer correctly, the more it moves. If you 
answer incorrectly, you hear a short razzing noise, and the 
game ball jumps away from you. 

When someone scores a goal, the game ball flashes, a 
beeping sound occurs, the scorer is acknowledged, and the 
scoreboard is updated. Then the game ball moves back to 
midcourt for the next point. When one side scores five goals, 
the game ends. The winner is congratulated (hope it’s you), 
a bell sound is played, and you’re asked to hit any key to 
continue. When you do so, you find yourself right back at 
the option menu. 

Selecting option 2 from the main menu gets you into the 
two-player game. Questions are asked as described in the 
one-player game, but the scoring and game play are some- 
what different. 

First you have to enter the name of each player (or team). 
Eight characters is the maximum length; the names are 
trimmed to eight if you enter more. 

One player takes the red or left side of the board, and the 
other player gets the blue or right side. This game is a race; 
each player tries to answer questions correctly sooner than 
his opponent. The red side uses the five number keys as 
explained in the one-player game. The blue side, however, 
needs five different keys. We chose the four function keys 
(on the right of the keyboard) plus the cursor right key at 
the extreme lower right of the keyboard. The function keys 
are unfortunately labeled f1, £3, £5, and £7, but we’ll use 
them to represent 1, 2, 3, and 4 respectively. And we chose 
the cursor key to represent 5. If you have trouble visualizing 
this, try taping little paper labels on the appropriate keys 
with the numerals from 1 to 5. We find most people have no 
problem after a few games. 

The white game ball does not move as the time ball falls, 
as it does in the one-player game. When a player makes a 
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guess, the computer indicates who made the guess and what 
that guess was. If the guess is right, the game ball moves 
toward a goal for him. 

But if the guess is wrong, the time ball continues to fall, 
a tone sounds, and the other player gets a shot at answering 
the question. This tone is a razzing noise if red misses and 
a continuous note if blue misses. All penalties for missing 
and rewards for correct answers are like those described in 
the one-player game. If the time ball reaches the bottom, no 
further scoring is possible during that question. 

Again, the game is to five goals and is in other respects 
like the one-player game. 

You use options 3 and 4 on the main menu before you 
select one of the two game versions just described. 

With option 3, you select which data files the questions 
are drawn from during the game, and you choose which 
questions are asked from that file. When you select this 
option, you’re shown a list of the available data files. The 
computer wants to know which files to turn on and where 
to start in each one. So you’re asked file by file what 
question number you want to start with. Simply input the 
desired question number, then press the [RETURN] key. 
(See option 5 for a discussion of how you might know which 
choices to make under option 3.) If you want to use the file 
but don’t care where the questions start, input —1, and the 
computer will start randomly within that file. If you don’t 
want to use the file at all, input 0 (zero), and that file will 
be turned off. Note that you must turn on at least one file 
and can have up to three files active at once. 

You use option 4 to quickly adjust the difficulty level of 
the game. By pressing 1, 2, or 3, you get an easy, medium, 
or hard version of the game. These settings are only relative, 
of course, and in the Easy Changes we’ll show you how to 
make many more and much finer-tuned difficulty-level 
adjustments. Option 4 changes three things — the number 
of possible answer choices displayed, the speed at which the 
time ball falls, and the speed at which the game ball moves 
during the one-player game. 
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Option 5 from the main menu shows you the last question 
asked from each file. With this information, you can use 
option 3 at a subsequent session to start exactly where you 
left off. This way, there will be no waste in your use of the 
data files. When different games are played in the same 
session (that is without ever ending QUIKWIT), the 
computer remembers where it was in each file, so there is no 
need to use this option. It is used when you are going to exit 
from QUIKWIT entirely but intend to resume play later 
(maybe after a night’s sleep.) 

Good old option 6 restores the machine to regular 
uppercase mode with standard colors, then ends the pro- 
gram so you can get that good night’s sleep. 


SAMPLE RUN 


qaurKx wit Option Menu 
Mow using upper and lower case 

tart 4 Player 2 (you vs. C-64) 

Player game 
iculty 

how last questions asked 

nd progra 
Press i, 2, 3, 4, 3, or 6 -- 3 


After pressing a key to see the option menu, the two players select option 
3 to control the data files for their game. 
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ress 


I need to know where in each file to 
begin asking you questions. or @ach 
file, pleage tell me which question to 
ask first Cor input -i or 9). Here’s 
what your possible responses mean to me 


means start randomly in this file 
means don’t use this file at all 
i or more says begin at this question 


Files available are: 


Category 
ports and Games 
eneral Information 
cience and Nature 
4 witart Arts and Entertainment 


ra re shall I start in 
ile ? -1 
File 


File 3 ? 
File 47? -1 


One player is a sports nut and the other a movie and TV fan. They 
compromise and decide to use questions from each of their two spe- 
cialties. They turn off the questions on science and general information 
and select a random start for the categories of sports and entertainment. 


QurK Wir Option Menu 
Now using upper and lower case 
tart player game Cyou vs. C-64) 
$s 
Adjust game difficulty 
how last questions asked 
nd program 
Press i, 2, 3, 4, 3, or 6 -- 2 


Name of first player? The Jock 
Name of second player? Egghead 


The two-player version of QUIKWIT is selected, and the players enter 
their nicknames in preparation for play. 
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Dilithium crystals 
| ~ Calgonite 
| ~ Quti-gravity 


eee: 


The score is 3 to 2 in favor of The Jock when an entertainment question 
appears. The Jock tries a quick answer of choice 4 (the time ball has barely 
fallen), but he is incorrect. The Jock is penalized as the game ball gets 
closer to a score for Egghead, and the computer signals Egghead that he 
has a guess coming. 


MS ~- Dilithium crystals 
Calgeonite 
fnti-ogravity 


A short time later, Egghead guesses choice 2, which the computer shows 
to be correct. The game ball gets closer to Egghead’s side and he is now 
close to a goal. 
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who stote noe more than 


/- Maury Willis 
Low Brock 
Ty Cobh 


Eventually Egghead wins the match 5 goals to 4. The computer waits for 
a key to be pressed to return to the option menu. 


PROGRAM LISTING 


This listing is the program only. If you have the book 
without the dilithium software disk, you have to type in 
data files also. See Appendix C for a list of typical questions 
and instructions on how to enter them. Note that the 
following listing is printed in lowercase text mode. Get your 
computer into this mode before typing in the program. You 
can do this by typing: 


PRINT CHR$(14) [RETURN] 


1908 rem: quikwit 

118 rem: copyright 1984 dilithium press 

128 rem: by phil feldman and tom rugg 

138 als="1"sa2s="2"sa3SH="3"2a4S="4"sa5S="5" 
140 blS=chrS$ (133) :b2S=chrS (134) :b3$=chrS (135) 
158 b4S=chrS (136) :b5S$=chrS (29) 

168 sd=54276: v=53248 

170 sf=1 
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1890 
199 
200 
219 
226 
230 
240 
258 
269 
270 
289 
299 
380 
319 
320 
330 
340 
356 
360 
379 
38¢ 
399 
4090 
419 
429 
43@ 
449 
45@ 
469 
470 
480 
499 
588 
519 
520 
530 
5490 
556 
56 
576 
589 
596 
600 
610 
620 
630 
640 
650 
668 
67@ 
686 
699 
700 
710 
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dt=8.8 

dx=8.22 

py=30 

xc=136 

fr=0.5 

he$=chr$ (147) :hm$=chrS$ (19) :bk$=chr$ (144) 

wwS=chr$ (5) :rr$=chr$ (28) :bbS=chrS$ (31) :pr$=chrS (156) 
£z=100 

dim nn(24) ,cn(24) 

nf=4 

dim £$ (nf) ,c$ (nf) ,dc(nf) ,qn(nf) ,aq(nf) 

dim a$ (2,24) ,b$(5,24) ,aa(5) 

£$(1)="witspo" 

£$ (2)="witgen" 

£5 (3)="witsci" 

£S (4)="witart" 

for k=l to nf:dc(k) =@:aq(k) =-l:next 
dc(1)=@:dc (2) =-1l:dc(3) =O8:dc(4) =@ 

nc=4 

x$=chr$ (32) sn$=""scrS=n$:cdS=n$:spS=ns 

for k=l to 4@0:crS=cr$tchrS (29) :cdS=cdSt+chrS (17) 
spS=spS+xS:next 

sa=@:sb=@ 

sg=5 

ar$=chr$ (94)+chrS (94) +chrS (94) 

for j=@ to 24:poke sd-4,@:next 

if sf=@ then 479 

poke sd-4,@:poke sd-3,18:poke sd-2,12:poke sd-1,7 
poke sd+1,9:poke sd+2,169:poke sd+20,15:poke sd,@ 
for k=l to 9:close k:close 15 

gosub 57@:gosub 67@8:gosub 407¢ 

gosub 344@:gosub 1780:q=fre(@):gosub 3239 

gosub 294@0:qq=9@ 

qq=qqtl:if qq>24 then 500 

gosub 278@8:0n np gosub 719,1019 

q=fre(@) 

for p=l1 to 1000@:next 

if sa>=sg or sb>=sg then 2276 

goto 519 

poke v+21,@:restore 

poke v+23,@:poke v+28,@:poke v+29,@:poke v+16,@ 
add=832:page=add/64 

for j=add to add+29:read byte:poke j,byte:next 
for j=add+3@ to add+63:poke j,@:next 

data ®,60,0,98,255,8,1,255,128,1,255,128,3,255,192 
data 3,255,192,1,255,128,1,255,128,8,255;0,8,608,@ 
for j=2048 to 2043:poke j,page:next 

for j=l to 4:poke v+38+j,val(mid$("1126", 5,1) ):next 
return 

dim pv(24):for j=@ to 24:read pv(j):next 

data 200,151,0,0,8,9,249,0,0,0,9,0,0,@ 

data 255,2080,0,90,17,153,255,1,255,81,159 

return 

a=@ 


(6) 


120 
730 
74 
75 
760 
778 
78@ 
796 
800 
810 
820 
83 
84 
850 
8698 
878 
88 
890 
988 
918 
920 
9390 
949 
95 
960 
979 
986 
999 
1889 
1010 
1020 
183@ 
1848 
185@ 
1860 
1870 
1888 
10890 
1180 
1110 
1120 
1139 
1149 
115@ 
1168 
1178 
1188 
1198 
1208 
121¢ 
1220 
1230 
1240 
125¢ 
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y=ytdt:x=xtdx:get ros 

if rS=alS then a=l:goto 819 

if rS=a2S then a=2:goto 8198 

if rS=a3S then a=3:goto 819 

if rS$=a4S then a=4:goto 819 

if rS=a5$S then a=5:goto 819 
poke vt+tl,y:if y>233 then 990 
poke v+2,x:if x>=244 then 929 

goto 7290 

if ca=a then 869 
poke sd,129:print rr$;"#";a;"Wrong!":gosub 2469 
x=xtpy:if x>244 then x=244 
poke vt+2,x:if x>=244 then 929 

goto 1748 

print rrS;"#";a;"Right!":gosub 2498:gosub 24690 
x=x-(250-y)*fr:if x<28 then x=28 
poke v+2,x:if x<=28 then 979 
goto 1749 

cd=15:cr=13:gosub 31890 
print wwS;"Time's up":gosub 246@8:goto 1748 
x=244:poke v+2,x:cd=15:cr=13:gosub 3180 
print wwS;"I score":gosub 246@:gosub 1759 
gosub 175@ 
sb=sb+l:cd=21l:cr=38-len(strS$ (sb) ) 
gosub 318@:print bbS;sb:x=xc:poke v+2,x:goto 17490 
x=28:poke v+2,x:cd=15:cr=13:gosub 3188 
print wwS$;"You score":gosub 1750 
Sa=sSat+tl:cd=21l:cr=@:gosub 31890 

print rr$;sa:x=xc:poke v+2,x:goto 1748 
a=0:b=@ 

y=ytdt:get r$ 

if rS=alS then a=l:goto 1158 

if r$=a2S then a=2:goto 1158 

if rS=a3S then a=3:goto 1158 

if rS=a4S then a=4:goto 1158 

if rS=a5S then a=5:goto 11590 

if rS=blS then b=l:goto 13898 

if rS=b2S then b=2:goto 13880 

if rS=b3S then b=3:goto 13890 

if rS=b4S then b=4:goto 1389 

if rS=b5S then b=5:goto 13890 

poke vtl,y:if y>233 then 908 

goto 14820 

if ca=a then 1589 

poke sd,129 

print rrS;"#";a;"Wrong!";bbS$; left$(sp$,3); 
print"GO >>";left$(sp$,2); 

x=xt+tpy:if x>244 then x=244 

poke v+2,x:if x>=244 then 16890 


y=ytdt:get rs 

if rS=bl1S$S then b=l:goto 1298 

if r$=b2S then b=2:goto 12990 

if r$=b3$ then b=3:goto 1299 
b=4 


if r$=b4S then :goto 1298 


1260 
1279 
1289 
1298 
1380 
1319 
1320 
1339 
1349 
1358 
13698 
1379 
1380 
1399 
14989 
1419 
1429 
1439 
1449 
145@ 
1469 
147@ 
148@ 
1499 
1580 
151@ 
1520 
1530 
1548 
1558 
1560 
157@ 
1589 
1599 
1609 
1619 
1629 
1639 
1640 
165@ 
1669 
1679 
168¢ 
1699 
1709 
1718 
1720 
1730 
1749 
1758 
1768 
177@ 
1780 
1799 
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if r$=b5$ then b=5:goto 1299 

poke v+l,y:if y>233 then 919 

goto 12190 

if ca=b then 1349 

poke sd,l7:print bbS; "#";b;"wWrong!" 
X=xX-py:if x<28 then x=28 

poke vt+2,x:if x<=28 then 1629 

gosub 246@8:goto 174@ 

Print bbS;"#";b;"Right!":gosub 2499 
X=X+(233-y)*fr:if x>244 then x=244 

poke vt2,x:if x>=244 then 1689 

gosub 246@:goto 1749 

if ca=b then print left$(sp$,28);:goto 1349 
poke sd,l7:print rr$;left$(sp$,12);"<< Go"; 
print bb$;left$ (sp$,3);"#";b;"wrong!" 
X=X-py:if x<28 then x=28 

poke v+2,x:if x<=28 then gosub 2460:goto 1620 
y=ytdt:get rs 

if r$=al$ then a=l:goto 1529 

if r$=a2S then a=2:goto 1529 

if r$=a3$ then a=3:goto 1529 

if r$=a4S then a=4:goto 152@ 

if r$=a5$ then a=5:goto 1529 

poke v+l,y 

if y>233 then cd=15:cr=l:gosub 318@:goto 919 
goto 143¢@ 

cd=15:cr=l:gosub 3189 

if ca=a then 158@ 

poke sd,129:print rrs;"#";a;"Wrong!" 
X=xX+tpy:1lf x>244 then x=244 

poke v+2,x:if x>=244 then gosub 246@:goto 1689 
gosub 246@:goto 174@ 

print rrs;"#";a;"Right!":gosub 2499 
X=X-(233-y)*fr:if x<28 then x=28 

poke v+2,x:if x<=28 then gosub 2468:goto 1629 
gosub 246@:goto 1749 

X=28:poke v+2,x:gosub 2469 
Sa=Satlicd=2l:cr=@:gosub 3180 

print rr$;sa;leftS(spS,4);"<< Score" 

gosub 1758 

cd=2l:cr=7:gosub 318@:print left$(spS,11) 
X=xcspoke v+2,x:goto 174@ 

x=244:poke v+2,x:gosub 2469 
sb=sb+1l:cd=2l:cr=l6:gosub 3189 

print bbS;"Score >>"scr=38-len(strS$ (sb) ) 
gosub 318@:print sb:gosub 1759 
cd=2l:cr=15:gosub 318@:print leftS (spS,9) 
X=xcspoke v+2,x:goto 1749 

return 

for j=l to 5:poke sd,33:poke v+21,13 

for p=l to 3090:next:poke v+21,15:poke sd,@ 
for p=l to 308:next:next:return 

poke 53280,8:poke 593281,15:print chr$(14);hcSs; 
print xS;bbS;"Q U I KWI Ts 
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1880 
181@ 
1820 
1830 
184¢ 
1850 
1869 
1870 
1880 
1890 
19800 
1919 
19290 
1938 
1948 
195@ 
1968 
197@ 
1988 
1996 
2000 
201 
2620 
2830 
2040 
2050 
2068 
2070 
2080 
2090 
2100 
21190 
2128 
2130 
2149 
2158 
2160 
2170 
2180 
2199 
2200 
22190 
2220 
2230 
22490 
2250 
2260 
2270 
2280 
2290 
2300 
23190 
2320 
2330 
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print wwS;leftS(sp$,3);"from";left$(sp$,3); 

print rrs; "MIND MOVES" :print chr$(129); 

gosub 2520:print:print:gosub 2520 

for j=l to 9:print:next 

print chrs$ (18);left$(sp$,36) 

print:print chr$(18);leftS (sp$, 36) 

print chr$ (19) ;chrS (18); left$ (cd$,5);left$ (cr$,36); 
for j=l to 19:print chr$(18);xS;chr$ (157); 

print chr$(17);:next 

print chr$(18);x$;chr$ (19) 

print left$(cd$,4);left$(cr$,37); 

pS=chr$ (157) +chr$ (157) +chr$ (157) +chr$ (17) 

print chrS (156);"max";ps; 

print chrS$ (176); xS;chrS$ (174) ;p8; 

for j=l to 16:print chr$(171);xS;chr$ (179) ;p$;:next 
print chr$(173);xS$;chr$ (189) ;p$; 

print xS3"O"schrS (157) ;chr$ (145); 

for j=l to 16:print chr$(145);:next 

print chr$ (31); 

for j=l to 4:print mid$ ("TIME",j,1);chr$ (157); 
print left$(cd$,2);:next:print chrS (17); 

for j=l to 4:print midS ("BALL",j3,1);chr$ (157); 
print left$(cd$,2);:next 

print chr$ (19); leftS (cd$,17);chr$ (156) ;chr$ (176); 
for j=l to 29:print chr$(178);:next:print chr$ (174) 
print chr$(171);x$;x$;chr$ (123); 

for j=l to 6:print x$;x$;xS$;chr$ (123); :next 

print x$;xS;chr$(179):print chr$(145);chr$ (173); 
for j=l to 29:print chr$(177);:next:print chr$ (189) 
print rr$;naS$; left$ (cr$,3l-len(nb$)-len(na$));bb$;nb§ 
print chr$(145);rr$;sa; 
cd=2l:cr=30-len(str$(sb)):gosub 3180 

print bbS;sb 

print chrS$ (129) ;chr$(18);leftS$ (spS, 36) ;chr$ (19); 
print left$S(cd$,17);leftS$ (cr$,31);chr$ (129) ;chr$ (18); 
for j=l to S:print x$;chr$(157);chr$(17);:next 
print chr$ (146); 

for j=l to S:print chr$(145);:next:print ehrs (29) > 
print chr$(5);"game":print spc(33);"is" 

print chr$(145);spc(33);"to" 

print spc(32);chr$ (17);sg 

print chr$(19);spc(35):print chr$(129);chrs$ (18); 
print xS;chrS (146) ;chr$(156);" dP" 

x=xc:poke v+2,x:poke v+3,193:poke vt4,28:poke v+5,193 
poke v+6,244:poke v+7,193:poke vt16,1l:y=9/7 

poke v+@,64:poke vtl,y:poke vt21,15 

return 

gosub 253@:cd=23:gosub 31890 

if sa>=sg then print rrSj;arS:print"Winner"; 

if sb<sg then 23290 

print bbS;left$(sp$,28);ar$ 

print leftS$(sp$,25); "Winner"; 

get r$:if r$<>nS then 23290 

gosub 259@:print wwS;"Game over"; 
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234@ 
2356 
2360 
2370 
2380 
2396 
2409 
24190 
24290 
2439 
2448 
2450 
2460 
2470 
2480 
2490 
2500 
2519 
2520 
2530 
2548 
2556 
2566 
2570 
2580 
2590 
2600 
2619 
2629 
2630 
2640 
2650 
2660 
2670 
2689 
2690 
2/00 
2716 
2720 
2730 
2740 
2756 
2760 
2770 
2780 
2790 
2800 
2810 
2826 
2830 
2840 
2859 
2860 
2870 
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print bkS;xS;"—";xs; 

print pr$;"Hit any key to continue" 

for j=@ to 24:poke sd-4,pv(j):next 

poke sd,2l:poke sd+14,17 

for j=l to (5@*rnd(1)):next 

poke sd,20:poke sd+14,16 

for j=l to 30@0:next 

for j=l to 9:close j:next:close 15 

get rS:if rS=nS then 23790 

for j=l to nf:if dc(j)=8 then 2459 
dc(j)=aq(j)+1l:if dc(4)<1 then dc(j)=l 
next:poke v+21,@0:sa=@:sb=8:goto 499 
cd=3+catca:cr=8:gosub 318¢ 

print bkS;chr$(18);ca;chrS$ (146) 

poke sd,@:return 

for p=l to 2 

poke sd,33:for j=l to 18@@0:next:poke sd,@ 
for j=l to 100:next:inext:return 

print chr$ (18); spS;chrS (146) ;:return 

for q=23 to 24:cd=q:cr=8:gosub 3180 
print leftS(spS$,36);:next:return 
cr=@:for cd=2 to 3:gosub 3189 

print leftS(spS$,48);:next 

for cd=5 to 13:gosub 3188 

print leftS$(sp$,36);:next:return 
cd=15:cr=@:gosub 318@:print leftS$(spS,33) 
cr=l:gosub 318@:return 

gosub 3670 
print:print"No.";tab(5):"Name"; 

print tab(14);"Last Question Asked" 

for k=l to nf:print k;£S (k);tab(15); 

if aq(k)>=@ then print aq(k):goto 26790 
print"File not used yet" 
next:print:print"Hit any key to continue" 
get rS:if rS=nS then 2689 

goto 3449 

poke 53281,0:y=97:poke v+l,y:gosub 2599 
print leftS$(sp$,1@0);wwS;"Get ready !" 
gosub 2530:cd=23:cr=l:gosub 3189 

print pr$;"Category: "scS (cn(qq) ) 
cd=24:gosub 3189 

print wwS;"Question #";nn(qq); 

ag (cn(qq))=nn(qq):gosub 255¢ 
cd=2:cr=l:gosub 3180:tS=aS(1,qq) :gosub 3989 
print bkS$;ttsS 

cd=3:gosub 3180:tS=aS (2,qq) :gosub 308@0:print tts 
mc=@:for k=l to 5 

if asc(leftS$(bS (k,qq) ,1))<>1@4 then mc=k 
next:if nce<mc then mc=nc 

for k=l to S:aa(k)=k:next 

for k=mc to 2 step -l 

J=int(k*rnd(1))4l 

q=aa(k) :aa(k)=aa(j) :aa(j)=q 

next:for k=l to mc:if aa(k)=l1 then ca=k 
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2880 next:cr=0 

2899 for k=l to 5:tS$=bS(aa(k),qq):gosub 3980 
2908 if k>mc then ttS$=n$ 

2918 cd=3+k+k:gosub 318@:print ke "="sxSsttSsnext 
2920 get rS:if r$<>n$ then 2928 

2938 gosub 2598:poke 53281,15:return 

2949 gosub 2530:cd=23:cr=l:gosub 3180 

29508 print bk$;"Excuse me for a few seconds," 
2968 cd=24:gosub 31898 

2970 print"I'm reading in questions."; 

2980 k=@:for q=l to 24 

2999 k=k+l:if k>nf then k=@:goto 2999 

3008 if dc(k)=@ then 29990 

3010 input#k,a$(1,q) :input#k,a$ (2,q) 

3020 for j=l to S:input#k,b$(j,q) :next 

3030 qn (k) =qn(k)+1:nn(q) =qn(k) s:cn(q) =k 

3040 if st=@ then 3070 

3858 close k:open k,8,kt+2,"O0:"+£S(k)+",s,c"sinput#k,rs§ 
3868 qn(k) =8 

3070 next:gosub 253@:return 

30808 ttS=nS:q=asc(left$(t$,1)):if g=104 then 31790 
3098 if q<>1@5 then ttS$=t$:goto 31798 

3190 for p=2 to len(t$) :q=asc(mid$(t$,p,1)) 

3110 if q=10@ then ttS$=tt$+","sgoto 3160 

3120 if g=1@1 then ttS=ttS+":"sgoto 3169 

3130 if q=1@2 then ttS$=ttSt+";"sgoto 3160 

3140 if q=103 then ttS$=tt$t+chr$ (34) :goto 3160 
3150 ttS=ttSt+chrS (q) 

3168 next 

3178 return 

3188 print hmS$;:if cd=@ then 3208 

3198 print left$(cd$,cd); 

3200 if cr=8 then 32290 

3218 print left$(cr$,cr); 

3220 return 

3230 cd=23:cr=l:gosub 31890 

3249 print bk$;"Just a moment please, sae (i 

3258 cd=24:gosub 31890 

326@ print"initializing my disk files."; 

3278 for j=l to 9:close j:next:closel5 

3288 open 15,8,15:close 1l5:open 15,8, 15 

3290 for k=l to nf:if dc(k)=@0 then 34390 

3300 q=dc(k):if q<@ then g=int(fz*rnd(1))+tl 

3318 open k,8,k+2,"@0:"+f£$ (k)+",s,r" 

3320 input#15,w$,rS:if wS="00" then 3360 

3338 cd=15:cr=8:gosub 318@:print bk$;"Fatal error, fide"; 
3340 print k;"-";xS$;r$ 

3358 gosub 253@:cd=2l:cr=8:gosub 3188:end 

3360 input#k,c$(k):if q=l then qn(k)=@:goto 3438 
3370 qn(k)=q-l:p=@:for j=l to gqn(k):p=ptl 

3388 for m=l to 7:input#k,rS:next 

3390 if st=8@ then 34290 

3408 close k:open k,8,kt+2,"O:"+£S (k)+",s,r"sinput#k,r$ 
3418 p= 
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3429 
3436 
3449 
34598 
3469 
3479 
3480 
3499 
3500 
3519 
3520 
3530 
3540 
355¢ 
3569 
3576 
3586 
359 
3600 
3618 
3629 
3630 
3646 
3658 
3668 
367@ 
3689 
3699 
3780 
3716 
3726 
3730 
3748 
375@ 
3766 
377@ 
3786 
379@ 
3808 
3810 
3820 
38390 
3848 
385@ 
3860 
3870 
3886 
389@ 
3906 
391¢ 
3929 
393@ 
394@ 
3958 
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next:qn(k)=p 

next:return 

print hcS$;wwS$;chrs$ (14):poke 53280,4:poke 53281,6 
print"Q UI K WI T":spc(3); "Option Menu" :print 
print"Now using upper and lower case"sprint 
print"l] - Start 1 player game (you vs. C-64)" 
print"2 - Start 2 player game" 

print"3 - Select data files" 

print"4 - Adjust game difficulty" 

print"5 - Show last questions asked" 

print"6 - End program" 

print:print"Press 1, 2, 3, 4, 5, or 6"; 

get rS:if len(rS)=@ then 3549 

if rS<"1" or rS>"6" then 3549 

q=val(rs)2 print xS4"=="sq 

on q goto 3589,3598,3760,3930,2610,4219 
naS="You": nbS="Computer" :np= lz:goto 3668 
np=2:na$=nS:nbS=nS:print:print 

input"Name of first player";na$ 

if len(naS)=0 then 36090 

print 

input"Name of second player";nbS 

if len(nbS)=@ then 36390 
na$=left$ (na$,8) :nbS=leftS (nbS, 8) 

return 

print:print"Files available are:":print 
print"No.";tab(5);"Name";tab(18);"Category" 
close2:close 15:open 15,8,15:for k=l to nf 

open 2,8,2, "OS"4ES(k)+"~s, dy 

input#15,wS,rStif wS="08" then 3740 
print:print"Fatal error on file";k 

print rS:end 

input#2,c$(k):print k;£5(k);tab(15) ;c$(k) 
close2:next:print:close 15:return 

print:print spc(3);"I need to know where in each file to" 
print "begin asking you questions. For each" 
print"file, please tell me which question to" 
print"ask first (or input -l or @). Here's" 
print"what your possible responses mean to me"s:print 
print" -l means start randomly in this file" 
print" @ means don't use this file at all" 
print" 1 or more says begin at this question" 
gosub 367@:print"Where shall I start in" 

for k=l to nf:print"File";k;:input dc(k) :next 
q=@:for k=l to nfz:if dc(k)<>@ then gq=qtl 
next:if q>=l1 then 3900 

print:print"Redo this, you've turned all files off!" 
print:goto 38190 

if q<=3 then 4060 

print:print"Redo this, 3 files maximum!" 
print:goto 3819 

get rS:if rS$<>nS$ then 3930 

print:print 

print"Select the game difficulty you prefer":print 
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3960 
3978 
398@ 
399 
4000 
4010 
4920 
4930 
4940 
4050 
4060 
4970 
4080 
4096 
41900 
41190 
4120 
4130 
4149 
4150 
4160 
4170 
4180 
419@ 
4200 
42190 
4220 
4230 
4240 
999@ 
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print"l - Easy" 

print"2 - Medium" 

print"3 - Hard" 

print:print"Which would you like (1, 24. OL 3)" 
get rS:if r$=n$ then 4008 

if r$<"1" or r$>"3" then 4000 

g=val(r$):on q goto 4030,4040,4050 
nc=3:dt=0.7:dx=0.19:goto 4060 
nce=4:dt=0.8:dx=0.22:goto 4069 
nc=5:dt=0.9:dx=8.25:goto 4069 

goto 3448 

get rS:if len(r$)>@ then 4079 

print chr$ (142) ;chr$ (8) ;hc$ 

poke 53280,6:poke 53281,4:print wwSsprint:print 
print tab(12);"q uikwi t"sprint:print 
print tab(4);"copyright 1984 dilithium press" 
print:print:print:print 

print tab(6);"from the book "mind moves'" 
print:print 

print tab(5);"by tom rugg and phil feldman" 
for j=l to 6:print:next 

print tab(9);"press a key to begin" 

get rS:if len(r$)=8 then 4189 

q=rnd(-ti) 

return 

poke vt+21,@ 

print chr$ (142) ;chr$ (9);chr$ (154) ;hc$;:clr 
poke 53280,14:poke 53281,6 

for j=l to 9:close j:next:closel5 

end 


ready. 


EASY CHANGES 


1. The keys pressed to indicate each player’s guesses can 


be changed if you desire. The five keys used for player 
A (the red or left player) are set by the variables al$ to 
a5$ in line 130. Similarly, the five keys for player B (the 
blue or right player) are set by the variables b1$ to b5$ 
in lines 140 and 150. You might want to change the keys 
for player B if you find using the function and cursor 
control keys awkward. One choice would be to use the 
k, 1, :, ;, and = keys. Look at the keyboard to see why 
this would be logical. (You can tape labels 1 to 5 on 
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these keys if you want.) To implement this, change lines 
140 and 150 as follows: 


140 b1$=“k”:b2$=“1":b3g = “2” 
150 b4$-=";":b5$=“ =" 


. You can remove all sound effects from the program 
(some people find sound distracting) by changing line 
170 to: 


170 sf=0 


. The speed at which the time ball falls is controlled by 
the variable dt in line 180. Make it larger to get a faster 
fall or smaller to get a slower one. A fairly fast fall 
(approximately eight seconds) can be achieved with: 


180 dt=1.2 


. In the one-player game, the speed at which the game 
ball moves toward the computer’s side is controlled by 
the variable dx in line 190. Make it larger to get a 
tougher game or smaller to get an easier one. You can 
get a much easier game by slowing down the movement 
with: 


190 dx=0.1 


. The maximum number of possible answer alternatives 
displayed with each question can be set anywhere from 
two to five. Its value is controlled by the variable nc in 
line 360. Adjusting nc greatly affects the difficulty of 
the questions and the time needed to answer them 
correctly. If you don’t intervene, the program sets nc to 
four. Make this change to increase the number of 
answer possiblities to the maximum of five: 


360 nc=5 
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6. The penalty movement of the game ball for a wrong 
answer is controlled by the variable py in line 200. 
Increase its value to make risking unsure guesses more 
hazardous. Turn it off completely to encourage faster 
guessing with: 


200 py=0 


7. You can adjust the starting location of the game ball 
after each goal is scored by altering the value of xc in 
line 210. Use this as a handicapping tool for the two- 
player game or to adjust the degree of game difficulty 
for the one-player game. A smaller value of xc will 
make the one-player game easier and will give an 
advantage to the red (or left) player in the two-player 
game. A larger value of xc will, of course, have the 
opposite effects. Try raising or lowering its current 
value of 136 by any amount up to 70 points. If the blue 
player is a little better than the red player in the 
two-player game, try: 


210 xc=100 


8. The distance the game ball moves when a correct 
answer is given is controlled by the variable fr in line 
220. Make it larger to get rewarded more and smaller to 
get rewarded less. Be careful how much you change it, 
since the game ball movement is sensitive to small 
changes in fr. The game action changes greatly as fr is 
changed. Larger values cause goals to be scored much 
faster and smaller values correspondingly less often. 
Experiment to find your preference. Some people prefer 
the quick-paced game achieved with: 


220 fr=0.9 


9. The number of goals required to win is controlled by the 
variable sg in line 410. To make it twelve goals, use: 
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410 sg=12 


10. The time delay between questions is controlled by the 
loop in line 540. If you want a shorter delay, reduce the 
1000 in this line to a smaller value. Similarly, you can 
make the 1000 larger to lengthen the delay. 


11. In the two-player game, when one player guesses 
incorrectly, his guess is displayed on the board. You 
might prefer not seeing this so the other player cannot 
benefit from the information. To accomplish this, 
change these four lines as follows: 


1170 print rr$;“Wrong! ” ;bb$;left$(sp$,3); 
1300 poke sd,17:print bb$;“Wrong! ” 
1400 print bb$;left$(sp$,3);“Wrong! ” 
1540 poke sd,129:print rr$;“Wrong! ” 


PROGRAMMER’S NOTEBOOK 


Essential to the operation of QUIKWIT is the use of data 
files to store the questions used by the program. We use 
sequential files (instead of random or relative files) because 
they are simple to implement, put less demand on machine 
memory and disk storage, and are easily explained when 
telling you how to create your own data files for use with 
QUIKWIT. 

Each data file is a series of string text lines. The first line 
contains the category of questions on that file — Arts and 
Entertainment, for example. The questions follow, each one 
consisting of seven lines. The first two lines hold the 
question itself, and the remaining five hold up to five 
possible answers. 

The subroutine at line 3230 is called to initialize the disk 
files for use by the program. BASIC allows up to four files 
to be opened at once. One of these files should be the error 
(or communication) channel that can be interrogated to 
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make sure disk operations are going smoothly and to tell 
what’s wrong when they’re not. This leaves a maximum of 
three data files that can be open simultaneously. We adopt 
the Commodore standard of using file 15 for the error 
channel, and it is opened conventionally in line 3280. Line 
3310 opens the sequential data files for the current game. 
The array dc (for disposition code) contains the information 
about which files are to be opened and where the reading of 
information is to begin in these opened files. If dc=0, it 
means that file is not to be opened. A dc value of — 1 means 
the file is to be opened and the first question is to be read 
from it randomly. A positive value of dc means the file is to 
be opened and the first question is to be the one with the 
same number as the value of dc. Remember, sequential files 
must be read sequentially (no jumping around). So once 
opened and initialized to a certain point, the questions will 
subsequently be read in order. 

In line 3310, each file is given a file number of k, assigned 
a distinguishing channel number (k+2), and identified by 
its file name from the f$ array. The “s, r” at the end of this 
line means the file will be sequential (s) and opened for 
reading (r) as opposed to writing. In the next line, the error 
channel is interrogated to make sure all is in order and each 
file is found to be okay. If not, an error message is printed. 

Line 3360 reads the category name into the c$ array. Now 
q comes from line 3300 and holds the number of the first 
question to be asked. That means q—1 questions must be 
read from the file to position it to the desired spot. This is 
accomplished with the coding from 3360-3430. Note that 
the qn array is set to the last question read. The thing we 
have to be careful about here is reading past the end of the 
file. In line 3390, the machine variable st (for status) is 
checked after each read. If it is zero, we have not reached 
the end of the file. If it is not zero, the program will read the 
necessary remaining questions from the beginning of the 
file. This requires closing and reopening the file and reading 
past the category line at the beginning. This chore is 
accomplished in line 3400. 
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Questions are read from the disk into the computer’s 
memory 24 at a time. QUIKWIT then gets these questions 
from main memory. Another 24 are read from the disk as 
necessary by the subroutine at line 2940. More than one file 
can be open for this reading and, if so, we want to take 
questions from each open category alternatively. In lines 
2990 and 3000, k is looped over the range of possible files, 
checking dc(k) each time to see if that file is being used. If 
So, a question is taken from it. This looping process con- 
tinues until 24 questions have been read. As a question is 
read, the information is stored in the a$ and b$ arrays in 
lines 3010 and 3020. The a$ array holds the two lines of each 
question, and the b$ array the five lines of possible answers. 
The first of these five lines always holds the correct answer, 
but the choices are shuffled randomly before they are 
presented on the screen. The arrays qn and nn contain the 
current question number within the file; qn with respect to 
the file argument k, and nn with respect to q, the question 
position from 1 to 24. The array cn(q) holds the file number 
k for that question, so the category name can be recalled 
quickly when the question is given on the screen. In lines 
3040-3060, the variable st is checked to see if the end of the 
file has been reached. If so, the file is wrapped around by 
being closed and reopened so the next question read from it 
will be the first on the file. 

The input# statement is used to read information from 
the disk into memory. This BASIC command treats certain 
characters as special delimiters, causing undesired com- 
plications for our use. These special characters are the 
comma, colon, semicolon, and quotation mark. But we 
found ourselves needing them in the text of the questions 
and possible answers. What to do? 

We adopted a special encoding scheme to change them to 
other characters when the disk was created, then to decode 
them back after the disk is read. We use chr$(100), 
chr$(101), chr$(102), and chr$(103) respectively for the four 
special characters. In addition, a blank line is represented 
with chr$(104) and, if a line contains any of the four special 
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characters, a chr$(105) is placed at the beginning of the line 
to signal this. These chr$ values were chosen because they 
are not needed for any normal uppercase and lowercase text. 

Thus, the question decoding subroutine works as follows. 
A question is about to be displayed on the screen with the 
subroutine at line 2700. In lines 2770, 2790, and 2890 the 
temporary string t$ is set to one line of data as it is read 
from the disk. Then the subroutine at line 3080 is called. 
This subroutine creates the corrected string tt$, which is t$ 
with any special characters converted back to their desired 
values. 

As a question is being asked, we want to shuffle randomly 
the appropriate number of possible answers. This is done in 
lines 2800-2880. First, in lines 2800-2810, mc is set to the 
number of possible answers provided with the question. 
Most questions have five answers provided but some, like 
true/false, have as few as two. If nc (the number of choices 
you wish to present with each question) is less than mc, then 
mc is set to nc in 2820. The aa array, containing the integers 
from 1 to mc, is shuffled randomly in lines 2830-2870. This 
ensures the correct answer will be present, and a rnaximum 
of nc possibilities will be shown with each question. 

It seems like all this was easier done than said! 


MAIN ROUTINES 


130-470 Initializes variables. 


480-560 Mainline routine — calls other subroutines and 
controls game flow. 

910-660 Subroutine to store sprite information. 

670-700 Subroutine to store the bell sound information. 


710-1740 Subroutine to ask the questions, get the replies, 
evaluate and display the results. 

1750-1770 Subroutine to emit sound when goal is scored. 

1780-2260 Subroutine to display the game board. 

2270-2450 Processes end of game. 

2460-2480 Subroutine to mark the correct answer on the screen. 

2490-2510 Subroutine to make sound when a question is 
answered correctly. 
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2520 

2530-2540 
2590-2580 
2590-2600 


2610-2690 
2700-2930 
2940-3070 
3080-3170 
3180-3220 


3230-3430 
3440-3570 


3580 

3990-3660 
3670-3750 
3760-3920 
3930-4060 
4070-4200 


4210-9990 


Subroutine to draw one blank orange line. 
Subroutine to clear the two-line message area. 
Subroutine to clear area where question appears. 
Subroutine to clear the one-line message area and 
move cursor there for subsequent message. 

Shows last question asked on each file (option 5). 
Subroutine to display each question. 

Subroutine to read next 24 questions into memory. 
Subroutine to decode t$ string into tt$. 

Subroutine to position cursor cd rows down and cr 
columns to the right from the upper left corner. 
Subroutine to initialize the disk data files. 
Subroutine to display the main option menu and 
branch to the option chosen. 

Initializes the one-player game (option 1). 
Initializes the two-player game (option 2). 
Subroutine to display the name and category of 
questions on each disk data file. 

Provides for selection and positioning of the disk data 
files (option 3). 

Provides for adjusting the difficulty level of the game 
(option 4). 

Displays introductory title and waits until a key is 
pressed before continuing. 

Ends program (option 6). 


_ MAIN VARIABLES 


Current score of player A and player B. 

Score required to win the game. 

Current question number in memory (from 1-24). 
Number of players (1 or 2). 

Address, memory page, byte value of sprite data. 


Value of guess for player A and player B. 

Vertical location of time ball. 

Horizontal position of game ball. 

Correct answer to question (from 1-5). 

Values to position cursor down and right. 

Number of answer possiblities to display with each 
question (from 3-5). 
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Number of answer possibilities available with the 
current question (from 2-nc). 

Memory address of SID sound chip (54276). 
Memory address of VIC graphics chip (53248). 
Sound flag (1 = use sound, 0 =don’t). 

Time ball descent rate. 

Game ball movement rate in one-player game. 
Penalty movement of game ball for wrong answer. 
Starting location of game ball. 

Factor ratio to determine game ball movement re- 
ward for a correct answer. 

Range from which to choose random question in each 
file. 

Number of data files available on disk. 

Loop and work variables. 

String of one blank space. 

String of one null character. 

Strings of 40 cursor rights, 40 cursor downs, and 40 
blank spaces. 

String of 3 up arrows used to show winner. 

User input string. 

Formatting string. 

String names of player A and player B. 

Data string read from disk before conversion and 
after conversion. 

String read from error channel on the disk. 
Strings of the five answer keys for player A. 
Strings of the five answer keys for player B. 
Strings to clear screen and home cursor. 

 trings to cause screen printing color to be 

black, white, red, dark blue, and purple. 


String array of the names of the nf disk files. 

String array of the question categories for the nf disk 
data files. 

String array of the sets of two-line questions for the 
recent 24 questions read from disk. 

String array of the sets of five answer choices for the 
recent 24 questions read from disk. 

Question number and file number (from 1 — nf) in the 
original disk file. 

Question number in the disk file. 
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aq(nf) Last question asked in each of the nf disk files. 

dc(nf) Disposition code of the nf disk files (— 1 =random 
start, 0 =turn off file, + =start at this number). 

aa(5) Random order to shuffle answer possiblities. 

pv Array of poke values to produce the bell sound. 


1. 


i 


SUGGESTED PROJECTS 


Allow for up to four players (or teams) trying to answer 
the questions at the same time. 

After a session with QUIKWIT, save the position in each 
data file on the disk itself. Then when you start the 
program the next time you can automatically continue 
where you left off. 
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UIKWORD is one of those games situated squarely in 
the big gray area that lies between entertainment and 
education. Is it a game, or does it improve your mind? We 
claim there’s no reason why the answer can’t be yes to both. 
Fun and learning should go together as often as possible, 
and word games are among the best ways for that to happen. 

One to four players can play this new game, competing to 
create words from the letters on the screen. You score points 
based on the letters you use. Common letters (vowels and 
common consonants) score one point each. Rarer consonants 
score three or five points, depending on how rare they are. 
As in some forms of anagrams, your starting point is the 
word your opponent just created. However, you also have 
five letters of your own (your hand of letters) plus two free 
letters to choose from. Unlike in many word games, you very 
seldom find that you can’t create any word at all. It’s justa 
matter of trying to pick the best one before your time runs 
out, to score as many points as possible, while leaving the 
next player with limited scoring potential. If the game 
sounds a bit complicated when you read through the rules 
below, don’t worry about it. Keep in mind that the nine- 
year-old daughter of one of the authors learned to play it 
within minutes. She’s pretty good at it, too! 
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RULES 


The game is played using a letter pool with 104 letters, made 
up of the following: 10 each of A, E, I, and O; five each of 
D, H, L, N, R, S, T, and U; two each of B, C, F, G, K, M, P, 
V, W, and Y; and one each of J, Q, X, and Z. We know there 
are some Skeptics among you, so we’ll save you some work: 


(10 X 4) + (5 X 8) + (2 X¥ 10) + (1 KX 4) = 104 
and 
4+ 8410+ 4 = 26 


Letters that are most common (with 10 or five of each) 
score one point when used in a word. Letters that are least 
common (one of each) score five points, and the letters in the 
middle (two of each) score three points. 

The letters in the letter pool are shuffled, and five are 
given (face up) to each player. In addition, two letters are 
drawn as free letters and are available for your use on your 
turn. To start the game, three random letters are drawn as 
the main word at the top of the screen, even though they 
don’t usually form a word. 

The first player tries to create a legal new main word 
using the letters taken from the old main word, the five 
letters in his hand, and the two free letters. Don’t panic! 
You don’t have to use all these letters — just some of them, 
as explained later. Before you start, you should decide what 
dictionary you will use to verify whether or not words are 
legal. We recommend the standard types of words allowed 
in most word games — no proper names, no slang, and so 
on, but that’s up to you. When you create a word, you must 
use at least one letter from the main word, and at least one 
from your hand. Words must be at least three letters long, 
and no more than 10. You must use a given letter from your 
hand before you draw one of that same letter fromm the main 
word. This becomes important when the only letter your 
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new word would have drawn from the main word is 
duplicated in your hand. 

If you can’t create a word before your time limit of two 
minutes runs out, you can pass. You score no points, but you 
get to throw all your letters back into the pool so you can 
get five new ones. At the end of two minutes, you are forced 
to pass if you haven’t yet created a legal word. 

After you create a word, you add the point values of the 
letters to your score. Then your hand and the free letters are 
replenished with letters from the letter pool as necessary, 
and unused letters from the old main word are put aside, to 
be shuffled back into the letter pool when it becomes nearly 
empty. 

The next player can decide to challenge your word if he 
does not believe it to be legal. If he does so, you have to 
consult your agreed-upon dictionary to try to find your 
word. If you find it to be a good (real) word, the challenger 
loses his turn and exchanges his letters, just as if he had 
decided to pass. If the word is bad, the challenger steals the 
points you would have scored with it, and continues with his 
turn. 

You are not allowed to use a word that has previously 
been used in the game. Also, you cannot create a word that 
is simply the same main word as the last one with a suffix 
added (i.e., adding -s or -ed or -ing to the previous word). 

The winner is the player with the most points at the end 
of a complete round in which someone has reached 100 
points or more (or some other limit the players agree upon 
before the game). 


HOW TO USE IT 


The program starts, like the others, by displaying its title 
and copyright notice, and waiting for you to press a key. 
After a few seconds during which the program gets things 
ready for you, it displays an option menu with seven 
choices. Press a key from 1 to 7 to select the one you like. 
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The first four simply indicate the number of players in the 
game, 1 to 4. After you select one of these, you are asked for 
the names of the players (up to eight characters each), then 
the game begins. Option 5 causes some very brief instruc- 
tions to be displayed. Option 7 (have patience, we'll get to 
option 6) ends the program after resetting the screen colors 
to their original hues. 

With option 6, you can change the primary two settings of 
the game — the time limit per turn (choice 1) or the number 
of points it takes to win the game (choice 2). Simply press 
the 1 or 2 key, and the program will show you the current 
limit (120 seconds for choice 1 or 100 points for choice 2, 
unless previously changed). Then you can enter a new value. 
The time limit must be at least 10 seconds but no more than 
600 seconds (10 minutes). The winning point score can be 
from 20 to 1000. To change both limits, choose option 6 
twice. 

After you finish with option 5 or 6, you are returned back 
to the menu so you can pick one of the first four options to 
start the game. 

The game begins as explained in the Rules section. Drawn 
from the pool are letters for all of the players, plus two free 
letters, plus three for the first main word. The letters are 
displayed in different colors so you can quickly distinguish 
among the one-, three-, and five-point letters. ‘The timer 
immediately starts counting down toward zero, so if you are 
the first player, you had better start trying to corne up with 
a word. Simply type in the letters of the word you choose 
and press the [RETURN] key. The word will be shown in the 
work area as you type it and, after you press [RETURN], one 
of two things will happen. 

If you type an acceptable word, you see the rnessage 
WORD OK in the lower right corner, the score of the word 
appears in the work area. You are asked to either press the 
A key to accept the word (taking the points and ending your 
turn), or to press the R key to retry for a new word. For 
retry, the work area is cleared and you start over again 
(except the timer continues relentlessly counting down). If 
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the timer runs out before you press the A key, the word in 
the work area will be accepted automatically, even if it has 
been only partly entered and [RETURN] has not been 
pressed. If the partial word is not a real word, the next 
player can challenge it. 

Keep in mind that this program uses no dictionary, so it 
only judges an acceptable word on the basis of whether the 
rules were followed in taking letters from the right places. 
It’s up to the next player to challenge a player who uses a 
nonexistent word. 

If you type an unacceptable word, the message *NO 
GOOD* is displayed in the lower right corner, with a brief 
explanation right below it to explain why. There are five 
reasons: 


1.TOOSHORT The word was not three or more letters 
long or time ran out with no word 
entered. 

2. EXTRA:x There was an extra letter x in the word 
you entered. Only the first extra letter is 
shown if more were found. 

3. NO MAIN No letter from the main word was used, 
after all letters possible were taken from 
the player’s hand. 

4.NO HAND No letter from the player’s hand was used. 

0. DUPLICATE The word duplicates a word used earlier. 


At this point, the program waits for you to press either the 
R key to retry (for a new word), or the [f1] key to give up 
and pass your turn. 

If you want to challenge the word of the previous player, 
press the [f7] key before your time limit expires. You are 
then asked to press either G (good) or B (bad) to indicate 
what you find out about the word when you check the 
dictionary. The program adjusts the scores accordingly. If 
the word is bad, the challenger’s timer is reset to the full 
time limit, then his turn continues as usual. You can’t 
challenge if the previous player scored no points, or if you 
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are the only player in the game. The [f7] key is ignored in 
these situations. You can only challenge the player im- 
mediately before you. 

The program does not check if the new main word is 
simply the same main word as before with a suffix added. 
The next player must challenge the word to enforce the rule 
prohibiting such a word. 

At the end of the game, the winner’s name is shown in the 
message area in the lower right corner. Then you can press 
a key to restart the program. 


SAMPLE RUN 


Herb, Ralph, and Big Ed decide to take on each other in a game of 
QUIKWORD. They choose option 3 and enter their names. 
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Herb has to create a word choosing letters from the five letters in his 
hand, the main word, and the two free letters. If the timer in the upper 
left corner reaches zero first, he scores no points. He must use at least one 
letter from both his hand and the main word. 


Herb types his word in the work area and presses [RETURN]. The 


program responds by showing the points the word scores, and asking him 
to press A or R. 
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Herb presses A to accept the word. It becomes the main word, new letters 
are drawn for Herb, and it’s Ralph’s turn. 


After many rounds of play, Ralph passes the 100-point mark to win the 
game. 


100 


196 
119 
129 
13@ 
149 
15@ 
169 
179 
180 
19@ 
289 
210 
220 
230 
24G 
250 
2608 
270 
280 
290 
306 
319 
320 
338 
349 
350 
36¢ 
378 
386 
398 
406 
419 
420 
439 
44@ 
45@ 
46¢ 
479 
480 
49@ 
588 
510 
526 
530 
546 
55@ 
5608 
570 
58¢ 
598 
600 
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PROGRAM LISTING 


REM: QUIKWORD 

REM: COPYRIGHT 1984 DILITHIUM PRESS 

REM: BY TOM RUGG AND PHIL FELDMAN 

GOSUB 367@ 

DIM LES(4),NA$(4),SC(4) ,PA(4),PD(4) ,LC(5) 
NW=2090 

DIM WDS (NW) ,AV(1@4) ,LS (26) 

GOSUB 3298:GOSUB 255@:GOSUB 2289 

GOSUB 1558@:FOR CP=l TO NP:GOSUB 158@:NEXT 
GOSUB 175@:FOR CP=l1 TO NP:GOSUB 18@0@0:NEXT 
A=13:D=4:GOSUB 1499 

FOR J=l TO 3:GOSUB 1618:MAS=MAS+RS 
LCS=CHR$ (LC (LS (ASC (RS)-64))) 

PRINT “SPC (1)? LCS?RS: 

NEXT 

CP=1 

A=PA (CP):D=PD(CP):GOSUB 1499 

PRINT CTS;CHRS (18) ;CP;NAS (CP) ;CHRS (146); 
TE=TI+TL+54 

GOSUB 1720:A=MA:D=MD:GOSUB 149g 

PRINT “CTS 3 "# "3s CPs "LTS UP": 

D=D+2:GOSUB 14986:PRINT"F1=PASS"; 
D=D+1:GOSUB 1498: PRINT" F7=CHALNG"; 
A=WA-7:D=WD:GOSUB 14994 

PRINT LEFTS (BLS, 28) 

SW=0:GOSUB 20990 

WKS=" 

A=WA:D=WD:GOSUB 149@ 

PRINT CCS; :A=A+1 

GET RS:PRINT CHRS (19); INT((TE-TI)/6@) ;CLS;BS; 
IF TISOTE THEN 60@ 

IF LEN(RS)=@ THEN 399 

K=ASC(RS):IF K=13 THEN 609 

IF K=2@ THEN 5@@ 

IF K=133 THEN SW=@:GOTO 1109 

IF K=136 THEN 219092 

IF RS<"A" OR RS>"Z" THEN 399 

IF LEN (WKS)>9 THEN 55@ 

WKS=WKS+RS:GOSUB 1499 

PRINT CLS;RS;CRS;CCS; :A=A+2:GOTO 3990 

IF LEN (WKS) =@0 THEN 39@4 

GOSUB 1490:PRINT CL$;BS;CLS$;CLS;CLS;CCS; 
A=A-2:IF LEN(WKS)=l1 THEN 3690 

WKS=LEFTS (WKS, LEN (WKS) -1) 

GOTO 396 

A=WA:D=WD:GOSUB 1499 

PRINT"** TOO LONG **" 

FOR J=l TO 1200:NEXT 

A=WA:D=WD:GOSUB 149@:PRINT LEFTS (BLS,22) 
GOTO 36¢4 

GOSUB 28098@:GOSUB 149@:PRINT BS; 
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618 GOSUB 11798 

620 A=MA:D=MD+2:GOSUB 149@0:IF W=@ THEN 6890 
638 PRINT"*NO GOOD*"; 

648 D=D+1:GOSUB 149@:PRINT LEFTS(BLS,9); 
65@ GOSUB 149@:PRINT DMS; 

66@ D=D+2:GOSUB 149@0:PRINT"F1=PASS"; 

678 GOTO 710 

680 PRINT"WORD OK"; 

698 D=D+l1:GOSUB 149@8:PRINT LEFTS(BLS,9) ; 
700 D=D+2:GOSUB 149@:PRINT"A=ACCEPT"; 
71@ D=D+1l1:GOSUB 149@:PRINT"R=RETRY"; 

720 A=WA-7:D=WD:GOSUB 149@:PRINT SW; 

73@ A=WA:GOSUB 149@:PRINT TS;CTS; 

740 GET RS:PRINT CHRS (19) ;INT((TE-TI) /68) ;CL$;BS; 
750 IF TI<=TE THEN 7890 

760 IF SW=0 THEN 119090 

7780 GOTO 838 

78@ IF LEN(RS)=@ THEN 7480 

790 IF RS="R" THEN GOSUB 1728:GOTO 2998 
800 IF RS=CHRS(133) THEN SW=8:GOTO 1100 
810 IF RS<>"A" THEN 74@ 

820 IF SW=@ THEN 7480 

838 SC(CP) =SC(CP)+SW: PS=SW 

848 PW=PWtl:IF PW>NW THEN W=1:GOTO 978 
850 WDS (PW) =WKS 

86@ GOSUB 199890 

878 GOSUB 155@:GOSUB 1759 

888 GOSUB 1588@:GOSUB 186490 

890 J=FRE(@):CP=CPtl:IF CP<=NP THEN 269 
900 J=@:W=0:T=-1:FOR CP=l1 TO NP 

910 IF SC(CP)=T THEN Wel 

928 IF SC(CP)>T THEN T=SC(CP):J=CP 

930 NEXT 

940 IF T>=WS THEN 9720 

950 RN=RN+1:A=6:D=23:GOSUB 149@:PRINT RN; 
968 GOTO 250 

978 GOSUB 172@0:A=MA:D=MD:GOSUB 1499 

980 PRINT"* *GAME**" 

998 PRINT TAB(MA);"**OVER**":PRINT 

1000 IF W=0 THEN 1039 

1810 PRINT TAB(MA); "TIE GAME." 

1828 GOTO 1052 

1030 PRINT TAB(MA);NAS(J) 

1040 PRINT TAB(MA);"WINS!" 

1858 PRINT:PRINT TAB(MA);"PRESS A" 

1@6@ PRINT TAB(MA);"KEY."; 

1878 GOSUB 28990 

1080 GET RS:IF LEN(RS)=@ THEN 1080 

1098 CLR:GOTO 1390 

1108 WS=LES(CP):LES(CP)="":PS=@:GOSUB 15890 
1110 FOR J=l1 TO LEN(WS) 

1120 IF AV(PR)=@ THEN 115@ 

113@ PR=PR+1l:IF PR>NL THEN PR=1 

1148 GOTO 11290 
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115¢ 
116@ 
117@ 
1189 
119@ 
1209 
1219 
1220 
1230 
1249 
125@ 
1260 
127@ 
1289 
1296 
1309 
1319 
1320 
133¢ 
1349 
135@ 
1369 
1379 
1380 
1398 
1409 
1419 
1429 
1439 
1448 
1450 
1460 
1476 
1489 
1498 
1580 
1518 
152¢ 
1530 
154@ 
1556 
1568 
1570 
158¢ 
1598 
160 
1619 
1629 
1630 
1649 
1658 
1668 
1679 
1680 


QUIKWORD 


AV (PR) =ASC (MIDS (WS,J,1)) :NEXT 

GOTO 8790 

W=0:TS=""3Sw=0:FL=@0:FM=@ 

IF LEN (WKS) <3 THEN W=1:DMS="TOO SHORT":GOTO 1449 
FOR J=l TO NE:UL(J)=ASC(MIDS(LES(CP),J,1)) :NEXT 
FOR J=l1 TO NF:UF(J)=ASC(MIDS(FRS,J,1)):NEXT 

FOR J=l1 TO LEN (MAS) :UM(J)=ASC(MIDS(MAS,J,1)) :NEXT 
FOR J=l1 TO LEN(WKS):IF W>@ THEN 1399 

RS=MIDS (WKS,J,1) :T=ASC(RS) 

FOR K=l TO NE:IF UL(K)<>T THEN 1279 

IF T=@0 THEN 1270 

UL (K) =@:T=@:FL=FL+1 

NEXT: IF T=@0 THEN 1379 

FOR K=l TO LEN(MAS):IF UM(K)<>T THEN 1319 

IF T=@ THEN 1319 

UM (K) =@:T=@0: FM=FM+1 

NEXT: IF T=@8 THEN 1379 

FOR K=1 TO NF: IF UF(K)<>T THEN 135@ 

IF T=0 THEN 135@ 

UF (K) =8:T=@ 

NEXT 

IF T<>@ THEN W=2:DMS="EXTRA:"+CHRS(T):GOTO 1399 
LCS =CHRS$ (LC (LS (ASC (R$) -64) ) ) : SW=SW+LS (ASC (RS) -64) 
TS=TS+LCS+RS+BS 

NEXT: IF W>@ THEN SW=@:GOTO 1449 

IF FM<l THEN W=3:DMS="NO MAIN" 

IF FL<l THEN W=4:DMS="NO HAND" 

IF W=@ THEN GOSUB 145@ 

IF W>8 THEN SW=@ 

RETURN 

IF PW=@0 THEN 14890 

FOR J=l TO PW:IF WDS(J)=WKS THEN W=5:DMS="DUPLICATE" 
NEXT 

RETURN 

PRINT CHRS (19); 

IF A=0 THEN 1529 

PRINT LEFTS(SRS,A) ; 

IF D=@ THEN 154@ 

PRINT LEFTS(SDS,D) ; 

RETURN 

IF LEN(FRS)=NF THEN 157@ 

GOSUB 161@0:FRS=FRS+RS:GOTO 15598 

RETURN 

IF LEN (LES(CP))=NE THEN 1609 

GOSUB 161@0:LES(CP) =LES(CP)+RS:GOTO 1589 

RETURN 

RS="":TF AV(PP)=@ THEN 1639 
RS=CHRS (AV (PP) ) :AV (PP) =@ 

PP=PP+1:IF PP+12>NL THEN GOSUB 1669 

IF LEN(RS)=8 THEN 1610 

RETURN 

A=30:D=21:GOSUB 149@:PRINT CTS; "SHUFFLING"; 

FOR K=NL TO 2 STEP -1:W=INT(K*RND(1))+1 

T=AV (W) :AV (W) =AV(K) :AV(K)=T 
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1690 NEXT:PP=1: PR=1 

1700 GOSUB 149@:PRINT LEFTS(BLS,9)j; 
171@ RETURN 

1720 FOR K=@ TO 6:A=MA:D=MD+K:GOSUB 14998 
173@ PRINT LEFTS(BLS,9);:NEXT 

1748 RETURN 

175@ A=FA:D=FD:GOSUB 1498 

1768 FOR J=l TO NF:RS=MIDS(FRS,J,1) 
177@ LCS=CHRS (LC (LS (ASC (RS) -64) ) ) 

1788 PRINT SPC(1);LCS;RS; 

1790 NEXT:RETURN 

1808 A=PA(CP):D=PD(CP):GOSUB 1499 

1810 PRINT CTS$;CP;NAS (CP); 

1820 D=D+2:GOSUB 149@ 

1838 FOR J=l TO NE:RS=MIDS (LES (CP) ,J,1) 
1848 LCS=CHRS (LC (LS (ASC (R$) -64) ) ) 

1858 PRINT SPC(1);LCS;RS; 

1868 NEXT 

1870 D=D+2:GOSUB 1490:PRINT LEFTS(BL$,12);:GOSUB 1499 
188@ PRINT CTS;"SCORE =";SC(CP); 

1898 RETURN 

1980 FOR J=l1 TO LEN (MAS) 

1910 IF UM(J)=@ THEN 19698 

1920 IF AV(PR)=@8 THEN 1958 

1930 PR=PR+tl:IF PR>NL THEN PR=l 

1948 GOTO 19290 

1958 AV(PR)=ASC (MIDS (MAS,J,1)) 

1968 NEXT 

1978 MAS=WKS:LES(CP)="":FRS="" 

1980 FOR J=l TO NE: IF UL(J)=0 THEN 2600 
1998 LES(CP)=LES(CP)+CHRS (UL (J) ) 

20008 NEXT 

20108 FOR J=1 TO NF:IF UF(J)=@8 THEN 2030 
2028 FRS=FRS+CHRS (UF (J) ) 

2030 NEXT 

2040 A=7:D=4:GOSUB 1490:PRINT LEFTS (BLS, 28) 
2058 GOSUB 149@:PRINT SW; 

2068 A=14:GOSUB 149@:PRINT TS; 

2070 A=7:D=WD:GOSUB 1490:PRINT LEFTS (BLS, 28) 
2088 RETURN 

2090 FOR J=1 TO 190:GET RS:NEXT: RETURN 
2100 IF PS=@ OR NP=l1 THEN 398 

2118 GOSUB 1728 

2120 A=MA:D=MD:GOSUB 149@0:PRINT"CHALLENGE"; 
2138 D=D+1:GOSUB 1490: PRINT"--------- ee 
2148 D=D+1:GOSUB 1490:PRINT"VERIFY"; 
2158 D=D+1:GOSUB 1498:PRINT"LAST WORD"; 
2168 D=D+2:GOSUB 1498: PRINT"G=GOOD",; 
2170 D=D+1:GOSUB 1490:PRINT"B=BAD"; 
2188 GOSUB 20990 

2198 GET RS:IF LEN(RS)=@8 THEN 2198 

2200 IF RS="G" THEN 22708 

2218 IF RS<>"B" THEN 21990 

2220 J=CP-1:IF CP=l THEN J=NP 
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2238 SC(J)=SC(J)-PS:IF SC(J)<@ THEN SC(J)=@ 
2248 SC(CP)=SC(CP)+PS:PS=Q@ 

2258 T=CP:CP=J:GOSUB 18900:CP=T:GOSUB 180@ 
2268 GOTO 260 

2278 GOTO 110@ 

22808 PRINT CHRS (147) 

2298 PRINT TAB(3);CHRS(5);TTS;SPC(3); 
2300 PRINT"FROM 'MIND MOVES!" 

2318 PRINT HLS 

2320 PRINT TAB(2);CTS; "MAIN" 

2330 PRINT:PRINT HLS 

2348 PRINT TAB(2);CTS; "WORK" 

2358 PRINT:PRINT HLS 

2368 PRINT:PRINT:PRINT: PRINT 

2370 PRINT HLS 

2380 PRINT:PRINT: PRINT: PRINT 

2398 PRINT LEFTS (HLS,31) 

2400 A=0@:D=11:GOSUB 1499 

2410 FOR J=14 TO 29 STEP 15 

2420 FOR K=11 TO 22 

2438 A=J:D=K:GOSUB 1498:PRINT VPS; 
2440 NEXT:NEXT 

2458 PRINT 

2468 PRINT TAB(11);VPS;TAB(29);VPS 
24708 PRINT TAB(11);VPS$;TAB(29);VPS; 
2480 A=32:D=11:GOSUB 1499 

2498 PRINT CTS;"FREE" 

2508 PRINT TAB(31);"LETTERS" 

2518 A=@:D=23:GOSUB 14990 

2528 PRINT TAB(1);"ROUND";RN;TAB(11); 
2538 PRINT VPS;CTS;"PLAY TO":wS;"PTS" 
2548 RETURN 

2558 PRINT CHRS (147) 

256@ PRINT TTS;SPC(3);"OPTION MENU" 
25780 PRINT 

2580 PRINT"] - ONE PLAYER GAME" 

2598 PRINT"2 — TWO PLAYER GAME" 

2608 PRINT"3 -— THREE PLAYER GAME" 
2618 PRINT"4 - FOUR PLAYER GAME" 

2620 PRINT"5 - INSTRUCTIONS FOR PLAYING GAME" 
2630 PRINT"6 - CHANGE GAME LIMITS" 
2648 PRINT"7 — END PROGRAM" 

2658 PRINT 

2660 PRINT"PRESS 1 - 7" 

2678 GET RS:IF LEN(RS)=@ THEN 2670 
26880 IF RS<"1" OR RS>"7" THEN 2670 
2698 PRINT RS:PRINT 

2/60 NP=VAL (RS) 

2718 ON NP GOTO 2730,27308,27308,2730, 2800, 3020,3880 
2728 STOP 

2738 FOR J=l1 TO NP:RS="" 

2748 PRINT"NAME OF PLAYER"; J;"?" 

2758 INPUT RS 

2760 IF LEN(RS)=@8 THEN 275@ 
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2778 NAS (J) =LEFTS (R$,8):PRINT 

2780 NEXT 

2798 RETURN 

2808 PRINT 

2810 PRINT TTS;SPC(3);"MINI-INSTRUCTIONS" 

2820 PRINT 

2830 PRINT"THE OBJECT OF THE GAME IS TO REACH" 
2840 PRINT WS;"POINTS BY FORMING WORDS." 

2850 PRINT"EACH PLAYER FORMS A WORD FROM THE" 
28608 PRINT NE;"LETTERS HE HOLDS, PLUS THE LETTERS" 
2870 PRINT" IN THE 'MAIN' WORD, PLUS THE";NF 

2880 PRINT"'FREE' LETTERS." 

2890 PRINT"WORDS MUST BE 3 OR MORE LETTERS LONG" 
2900 PRINT"AND MUST USE AT LEAST ONE LETTER FROM" 
29108 PRINT"THE MAIN WORD AND AT LEAST ONE FROM" 
2920 PRINT"THE PLAYER'S 'HAND'." 

2930 PRINT"LETTERS COME FROM THE PLAYER'S HAND" 
2940 PRINT"BEFORE THE MAIN WORD. LETTERS COUNT" 
2950 PRINT"1, 3, OR 5 POINTS EACH AS SHOWN BY" 
2968 PRINT"THEIR COLORS." 

2978 PRINT 

2988 PRINT" FULL DETAILS ARE IN THE BOOK" 

2998 PRINT"'MIND MOVES' FROM DILITHIUM PRESS." 
3088 GOSUB 38498 

3818 GOTO 2558 


3828 PRINT 

3038 PRINT"CURRENT GAME LIMITS ARE:" 

3048 PRINT 

3058 PRINT"1L --";TL/60;"SECONDS TIME LIMIT" 
3060 PRINT TAB(6);"PER TURN." 

3070 PRINT 

3080 PRINT"2 --";:WS;"POINTS WIN THE GAME." 


3898 PRINT 

3100 PRINT"PRESS 1 OR 2 TO PICK THE ONE TO CHANGE." 
3118 PRINT 

3120 GET RS:IF LEN(RS)=@ THEN 3120 

3138 IF RS="1" THEN 3168 

3140 IF RS="2" THEN 3238 

3158 GOTO 3120 

3168 PRINT"ENTER NEW TIME LIMIT (18 - 600)" 
3178 RS=""sINPUT RS 

3180 IF LEN(RS)=@ THEN 31690 

3198 W=INT (VAL (RS) ) 

3200 IF W<18 OR W>608 THEN 3168 

3210 TL=w*60 

3228 GOTO 3280 

3230 PRINT"ENTER POINTS NEEDED TO WIN (20 - 1000)" 
3240 RS=""sINPUT RS 

3250 IF LEN(RS)=@ THEN 3230 

3268 W=VAL(RS):IF W<28 OR W>108@ THEN 3230 
3270 WS=W 

3288 GOTO 255@ 

3299 TS= cea swKs="" sMAS="" sFRS="" eLCs="" 

330@ CRS=CHRS (29) :CDS=CHRS (17) :CLS=CHRS (157) 
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3318 
3320 
3336 
3340 
3350 
3360 
3370 
3386 
3398 
3400 
3419 
34290 
3439 
3440 
3459 
346@ 
34790 
3489 
3499 
35090 
3519 
3520 
35390 
354¢ 
355@ 
3569 
3579 
3589 
3598 
36098 
3619 
3620 
3638 
364¢ 
3650 
3660 
3676 
3686 
3699 
3700 
3716 
3720 
373¢ 
374@ 
375@ 
3760 
3779 
3780 
379@ 
3800 
3819 
3828 
3830 
3848 
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PRINT CHRS (147) 

PRINT"ONE MOMENT PLEASE..." 

HLS=CHRS (18)+CHRS (154) 

FOR J=1 TO 4@0:HLS=HLS+CHRS (32) :NEXT 
CTS=CHRS (158) 

CCS=CHRS (185) 

HLS=HLS+CHRS (146) 

VPS =LEFTS (HLS$,3) +CHRS (146) 

BS=CHRS (32) :BLS=BS:FOR Jk TO..5 
BLS=BLS+BLS:NEXT 

SRS=CRS:FOR J=l TO 6:SRS=SRS+SRS:NEXT 
SRS=LEFTS (SRS,39) 

SDS=CDS$:FOR J=1 TO 5:SDS=SDS+SDS:NEXT 
SDS =LEFTS (SDS,24) 

J=FRE (@) :PP=1:NL=@ 

FOR J=1 TO 26:READ W:NL=NL+W 

IF wW>4 THEN LS (J)=1:GOTO 3508 

IF W=l THEN LS(J)=5:GOTO 3599 

LS (J) =3 

FOR K=l TO W:AV (PP) =64+J: PP=PP+1:NEXT 
NEXT 

DATA. 164 2:52 54.1 
DATA 5,10,2,1,5 
RN=1 

WS=10@0 
TL=120*60 
NF=2:NE=5 

DIM UL (NE) ,UF (NF) ,UM(12) 

PA(1)=@:PD(1)=11 

PA (2)=15:PD(2)=11 

PA (3) =@:PD (3) =17 

PA (4)=15:PD(4)=17 

WA=14:WD=8: FA=31:FD=14:MA=3@0:MD=17 

LC (1)=154:LC(3)=5:LC(5)=156 

GOSUB 16694 

RETURN 

PRINT CHRS (147) ;CHRS (142) ; CHRS(8) ;CHRS(158) 
POKE 53269,@0:POKE 53280,14:POKE 53231.,9 
TTS="Q U IK WOR Dp" 

PRINT: PRINT 

PRINT TAB(12);TTS 

PRINT: PRINT 

PRINT TAB(4);"COPYRIGHT 1984 DILITHIUM PRESS" 
PRINT: PRINT: PRINT: PRINT 

PRINT TAB(6);"FROM THE BOOK "MIND MOVES'" 
PRINT:PRINT 

PRINT TAB(5);"BY TOM RUGG AND PHIL FELDMAN" 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

PRINT TAB(9);"PRESS A KEY TO BEGIN" 

GET RS:IF LEN (RS)=@ THEN 38@0¢ 

K=RND (-TI ) 

J=1:wW=@:T=@:1I=1 

RETURN 

PRINT 


O29 S105 150, 59 
Dydey 


v v , v 27,0 
je Dip OG ZY 2,1 
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3850 
386¢ 
3870 
3880 
3890 
9998 
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PRINT TAB(6);"PRESS A KEY TO CONTINUE" 
GET RS:IF LEN(RS)=@ THEN 3860 

RETURN 

POKE 53280,14:POKE 53281,6 

PRINT CHRS (147) ;CHRS (9) ;CHRS (154) 

END 


READY. 


1. 


EASY CHANGES 


To avoid having to use option 6 of the menu to change 
either the points needed to win or the time limit, you 
can change lines 3550 and 3560 instead. That way, your 
new limits will become the standard limits. Suppose 
you wanted limits of 75 points as the winning score and 
90 seconds as the time. Make these changes: 


3550 WS=75 
3560 TL=90*60 


Change the number of free letters and the number of 
letters in each player’s hand by changing line 3570. You 
can have up to four free letters and seven letters in each 
hand, and you must have at least one of each. If you 
want three free letters and six letters in each hand, 
change it to: 


3570 NF=3:NE=6 


. Change the number of letters in the main word to begin 


the game by changing line 210. Change the 3 in the line 
to any number from 1 to 10. For example, to start with 
a five-letter word: 


210 FOR J=1 TO 5:GOSUB 1610:MA$=MA$ + R$ 
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4. To require the shortest legal words to be at least four 
letters long, not three, change the 3 in line 1180 to 4. In 
addition, change the 3 in line 2890 to 4, so the on-screen 
instructions will be accurate. 


39. The colors chosen to represent the one-, three-, and 
five-point letters have been selected pretty carefully, 
but you can change them if you wish. Change the three 
numeric values in line 3640 to values representing the 
colors you choose, based on the information in 
Appendix C of the Commodore 64 Programmer’s 
Reference Guide. Instead of light blue, white, and 
purple, you could use something like cyan, yellow, and 
orange with: 


3640 LC(1) = 159:LC(3) = 158:LC(5) = 129 


6. You can change the quantity of each letter in the letter 
pool by changing lines 3520 and 3530. The first number 
in line 3520 is the number of As, the second number is 
the number of Bs, and so on. In this way, line 3520 
contains the quantities for A through M, and 3530 has 
N through Z. If you change any of these, be aware that 
one-point letters are those with five or more of that 
letter, five-point letters are those with one letter, and 
three-point letters are those with two to four of that 
letter. Also, if you will have more than 104 total letters, 
you need to increase the 104 in line 160 to be at least as 
large as the number of letters you will have. 


7. The program currently allows for up to 200 words to be 
stored for use in checking for duplicates when a new 
word is entered. If you plan to play a very long game 
(over 500 points or so), you may want to expand this 
limit before starting the game. Otherwise, when you try 
to enter the 201st word, the game will be declared a tie. 
To allow for 500 words, change line 150 to: 


1590 NW=500 
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PROGRAMMER’S NOTEBOOK 


To reduce delays caused by the so-called garbage collection 
process that BASIC goes through when repeated string 
manipulation of certain types is done, this program uses 
several numeric arrays to manipulate the ASCII values of 
the words and letters involved. In particular, the AV array 
contains the letter pool, and the UL, UM, and UF arrays 
contain the player’s hand, main word, and free letters when 
a new work word is being checked for legality. After 
manipulation is complete, the strings are rebuilt from these 
arrays. 

After the letters are shuffled in the AV array, they are 
drawn sequentially from it as needed during the game. 
When a letter has been drawn, its ASCII value is replaced 
with zero to indicate an open space in the letter pool. When 
letters must be replaced into the pool, they are replaced 
sequentially into these open spaces. Randomness is main- 
tained by shuffling all letters in the letter pool (including 
replaced ones) when the next letter to be drawn is less than 
12 from the end of the array. After a shuffle, the drawing 
and replacing begins at the top of the array again. 


MAIN ROUTINES 


130-170 Displays title screen, initializes variables, displays 
menu, processes responses, and displays main 
playing screen. 

180-190 Selects and displays free letters and letters of each 
player’s hand. 

200-240 Selects and displays starting main word. 

250-320 Shows which player is up by displaying his name in 
reverse letters and a message in the message area. 

330-350 Clears the area on the screen for the work word and 
gets ready for the player’s keyboard entry. 

360-490 Processes the keyboard entry of player CP’s work 
word. Displays the time remaining. 

5900-540 Processes [DEL] Key to backspace. 
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090-590 


600-820 


830-850 


860-880 


890 


900-960 


970-1090 


1100-1160 


1170-1440 


1450-1480 


1490-1540 


1550-1570 


1580-1600 


1610-1650 


1660-1710 


1720-1740 


1750-1790 
1800-1890 


QUIKWORD 


Discards the work word if it is over 10 characters 
long (after displaying a message). 

Evaluates the work word after [RETURN] is pressed 
or the time limit expires. Accepts the player’s 
response of A, R, or [f1] after showing if the word was 
good or not. 

Updates player’s score. Saves word for future 
duplicate checks. 

Returns unused letters to the letter pool from the 

old main word. Draws any needed letters for free 
letters and player’s hand. Displays them. 

Forces string garbage collection. Goes back to the 
next player if the end of a round has not been reached. 
At the end of a round, checks to see if anyone has 
enough points to win and whether there is a tie. 

If no win or tie, goes back for a new round. 

Displays the name of the winner, or declares the 
game a tie. Waits for a key to be pressed, then starts a 
new game. 

Processes a pass for a player who pressed [f1]. 
Subroutine to check if the work word is legal. 

Sets one of the five error messages if not. Builds string 
T$ to show the colors of the letters used. 

Subroutine to check if the work word is a duplicate 
of a word used earlier in the game. 

Subroutine to move the cursor A positions across and 
D positions down from the upper left corner of 

the screen. 

Subroutine to draw more free letters from the letter 
pool if necessary. 

Subroutine to draw more letters for player CP’s hand 
if necessary. 

Subroutine to draw the next available letter from the 
letter pool and put it into R$. Shuffles the letter pool 
if near the end. 

Subroutine to shuffle the letter pool, displaying a 
message while the shuffling is taking place. 
Subroutine to blank out the message area in the lower 
right corner. 

Subroutine to display the free letters on the screen. 
Subroutine to display the name, letters, and score 

of player CP on the screen. 
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1900-2080 


2090 

2100-2270 
2280-2540 
2550-2790 
2800-3010 
3020-3280 
3290-3660 
3670-3830 
3840-3870 


3880-9990 


SC 
PA, PD 


LC 


AV 


LS 
CP 
NP 
A,D 


J,K,T,W 
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Subroutine to put the unused letters from the old 
main word back into the letter pool, and remove the 
letters from the player’s hand and the free letters that 
were used in making the new main word. 
‘Subroutine to remove any possible extra keystrokes 
from the keyboard buffer. 

Processing for a challenge. Displays messages, 
accepts B or G key, and passes or adjusts score. 
Subroutine to display the QUIKWORD playing 
screen. 

Subroutine to display the option menu and process 
the response. Accepts the names of the players. 
Displays brief instructions if option 5 is requested. 
Changes game limits (option 6). 

Subroutine to initialize the main variables at the 
start of the game and shuffle the letter pool. 
Subroutine to display the opening title screen and 
initialize some variables and system conditions. 
Subroutine to display a message and wait for a key 
to be pressed. 

Resets system conditions and ends the program 
(option 7). 


MAIN VARIABLES 


Score array containing the scores of the four players. 
Arrays containing pointers to the across and down 
positions of the four players’ display areas. 

Letter color array containing the ASCII values of the 
colors of the three different values of letters. 

Array of the ASCII values of the 104 letters in the 
letter pool. A zero value means the letter has been 
drawn from that position. 

Letter scores array containing the point values earned 
by each of the 26 letters. 

Current player number. 

Number of players in the game. 

Number of across and down positions to move the 
cursor from the upper left corner of the screen. 

Loop and temporary work variables. 
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Time to end the current player’s turn. 

Time limit for each player (seconds times 60). 
Current time of day on the computer’s internal timer 
(seconds times 60). 

Across and down coordinates of the upper left corner 
of the message area. 

Across and down coordinates of the work word area. 
Across and down coordinates of the free letters. 
score of the work word. 

Previous player’s score. 

Number of words that can be saved to check for 
duplication. 

Pointer into WD$ to the last word saved. 

Number of points needed for a winning score. 
Round number. 

Pointer into the letter pool array to the next letter to 
be drawn. 

Pointer into the letter pool array to where to put the 
next letter to be returned. 

Number of letters in the letter pool. 

Number of letters in WK$ found in the player’s 
letter hand. 

Number of letters in WK$ found in the main word. 
Number of letters in each player’s hand. 

Number of free letters. 

Array of ASCII values of the letters in the player’s 
hand. 

Array of ASCII values of the letters in the main word. 
Array of ASCII values of the free letters. 

Constant 1. 

Array with the letters of the four players. 

Array with the names of the four players. 

Array with all the words used so far in the game. 
Main word. 

Work word. 

Free letters. 

Reply of player (key pressed). Also work string. 
Letter color. 

Color of regular text on the screen. 

String of 32 blanks. 

Single blank character. 
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Se eee 


CR$,CD$, Strings to move the cursor right, down, and left. 


CL$ 
CC$ Cursor character. 
DM$ Diagnostic message when a player’s word is no good. 


T$, W$ Temporary work strings. 
SR$,SD$ Strings to move the cursor right, down. 


TT$ 
HL$ 
VP$ 


Program title (with alternate blanks). 

Horizontal line string of reverse blanks. 

Vertical point string for use in drawing vertical lines 
on the playing area. 


SUGGESTED PROJECTS | 


. Change the priority in which letters are drawn from the 


player’s hand and the old main word to make the work 
word. Rather than always taking letters first from the 
player’s hand, take an identical letter from the main 
word if that would make the new word legal. 


. Change the game so it requires at least one letter to be 


taken from the free letters as well as from the player’s 
hand and the main word. 


. Change the logic that returns letters to the letter pool so 


that returned letters can immediately be drawn again. In 
the current form of the game, letters are redrawn only 
after the letter pool is shuffled. 


. Change the game to increase the points scored if the 


player completes his word in less than half the time 
limit. 
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ERTIGO is a board game that is as simple to learn as 

tic-tac-toe, but as challenging to master as checkers or 
go. The game is a sort of vertical, antigravity tic-tac-toe, in 
which the object is to get four in a row, not three. Each of the 
two players in turn releases a helium balloon of his color 
from the bottom of the playing area. Each balloon rises to 
the highest available position in its column. The first player 
to get four of his balloons in a row (vertically, horizontally, 
or diagonally) wins. You can play against a friend or the 
computer. If you play against the computer, you can select 
one of its four skill levels. Needless to say (but we’ll say it 
anyway), as your mind boggles at the complications of the 
balloon positions, you may be stricken by an attack of... 
VERTIGO! 


RULES 


The VERTIGO playing area is a nine-by-nine grid. The com- 
puter randomly determines which player moves first. In sub- 
sequent games, the first move alternates between players. 
Each player can select any of the nine columns for his move. 
The player’s token (colored helium balloon) is released in the 
selected column and rises to the highest unoccupied position 
in that column. Once a column is full with nine balloons, no 
more moves are possible in that column. 
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The players alternately make their moves until: one of 
them gets four in a row — vertically, horizontally, or diagon- 
ally; or the board is completely full. If the board is filled but 
no four-in-a-row has been made, the game is a tie. 

VERTIGO is set up as a match consisting of the best-two- 
out-of-three games, although this can be changed, as 
explained later. 


HOW TO USE IT 


The game starts by displaying its title and copyright notice, 
and waiting for you to press a key to get things going. Once 
a key is pressed, the program displays a menu of five options. 
Press a key from 1 to 5 depending on the option you want. 

Select option 1 if you want to play against the computer, 
or option 2 if you and a friend want to play against each 
other. If you pick option 2, the computer will ask for the 
names of the two players, each of which can be up to nine 
characters long. In either case (you vs. computer or you vs. 
friend), the computer will randomly select which player goes 
first, then will start the game. 

Before we get into the details of how the game is played, 
let’s cover what the other three options do. Use option 3 to 
change the skill level of the computer prior to choosing op- 
tion 1 to make it your opponent. If you’re playing against a 
friend, changing the skill level has no effect on the game. (Of 
course, if you consider the computer your friend, this isn’t 
quite true, but let’s get on with it anyway.) 

There are four skill levels, imaginatively called 1 to 4. 
Level 1 makes the computer a pretty simple-minded oppo- 
nent that often overlooks winning moves by either player. At 
level 2, the computer does better at blocking you from win- 
ning, but still can miss its own winning moves. At level 3, the 
computer detects winning moves by either side and plays a 
much stronger game. The computer plays its most advanced 
game at level 4, of course. You’ll probably want to start at 
one of the lower levels while you’re learning the game, then 
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move to higher levels after you start beating the computer. 
The skill level is set at level 2 by default if you don’t change 
it via option 3 on the menu. 

Menu option 4 displays abbreviated instructions on how to 
play the game, in case you have forgotten which keys to 
press in order to select your moves. Option 5 simply ends the 
game and resets the computer’s screen colors and keyboard 
back to their standard settings. 

And now, on to how the game is played. The computer dis- 
plays the VERTIGO playing area, showing marks at the top 
and sides to indicate the nine-by-nine grid. When it is your 
move, your balloon is shown at the bottom of the playing 
area below the center column. To select the column for your 
move, use the 1 or 2 key on the keyboard to move the balloon 
left or right, respectively. The balloon moves one column 
each time you press a key. When you have the balloon under 
the column you want, press the [RETURN] key to release it 
up to its position. 

If you are playing against a friend (a human one), his bal- 
loon will be displayed next, and will be moved the same way. 
After each move, the computer checks to see if a four-in-a- 
row has been made. If so, it indicates who won and updates 
the game scoreboard at the bottom of the screen. Then it tells 
you to press a key for a new game or match, depending on 
how many games have been won. If you would like to end the 
program rather than play another game, you can press the Q 
key (for quit). If you’d like to restart the program from the 
beginning (to take on a new opponent, for example), press 
the R key (for restart). 

When the computer is your opponent, there are only a 
couple of differences. First, the computer’s skill level (1 to 4) 
is displayed in the upper right corner of the screen. Second, 
the computer doesn’t use the keyboard to make its moves. 
Instead, it starts by displaying its balloon under the leftmost 
column, and slowly (or quickly, depending on the skill level 
and game situation) moves it to the right, column by column, 
as it evaluates each possible move it might make. Then it re- 
leases its balloon under the column it has selected. 
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SAMPLE RUN 


COMPUTER) 
a, SKILL LEVEL 


OR PLAYING GAME 


THE CURRENT SKILL LEVEL 


LEVEL i IS THE WEAKEST 
AND LEVEL 4 IS THE § 


ENTER i, 2, 3, OR 4 


After pressing a key to start the game, the player selects option 3 to alter 
the computer’s skill level. 


THE CURREMT SKILL LEVEL 


IS 
LEVEL i IS THE WEAKEST OPPONENT, 
AND LEVEL 4 IS THE STRONGEST 


eee 1, 2, 3, OR 4 


OPTION MENU 
CYOU US. COMPUTER) 


SKILL LEVEL 
PLAYING GAME 


Uv 
1 
< 
3 
4 
5 
P 
1 


BY RANDOM CHOICE, THE FIRST MOVE GOES TO 
YOU 


The player displays great confidence by selecting skill level 4, which in- 
vokes the computer’s best strategy. Next he picks option 1 to start the 
game, and the computer tells him he gets the first move. 
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FROM sain MD UES” 
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The player’s helium balloon is beneath the playing area in the center. By 
using the 1 or 2 key, he can move the balloon left or right before releasing 
it to rise upward by pressing the [RETURN] key. 


FROM “MIND MOVES ’ 


x RR z ee ta 

Renae 8 * eats sense ia ea a ee af 
es cs eee om 7 * 
oe ae m as 
" oe 4 
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fe! 


s 
x x 


0 
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The player and computer have both made several moves, and the com- 
puter is in the midst of evaluating where to move on this turn. 
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After a hard-fought game, the computer finally prevails in the first game 

of the match by getting four in a row diagonally. The program now waits 

for the player to press a key to start the next game in the best-two-out-of- 
three match. 


PROGRAM LISTING 


168 REM: VERTIGO 

11® REM: COPYRIGHT 1984 DILITHIUM PRESS 

120 REM: BY TOM RUGG AND PHIL FELDMAN 

138 GOTO 43@ 

14@ IF J>HP THEN SH=HP:HP=J 

158 W=8:FOR K=11 TO HP 

169 IF B(K)<l OR B(K)<>FM THEN 220 

170 IF B(K+1)=FM AND B(K+2)=FM AND B(K+3)=FM THEN 240 
180 IF K<4l1 THEN 220 

196 IF B(K-18)=FM AND B(K-20)=FM AND B(K-3@0)=FM THEN 249 
208 IF B(K-9)=FM AND B(K-18)=FM AND B(K-27)=FM THEN 24@ 
210 IF B(K-11)=FM AND B(K-22)=FM AND B(K~33)=FM THEN 249 
220 NEXT: IF J>SH THEN HP=SH 

230 RETURN 

248 W=1:GOTO 229 

258 FOR MV=l TO 9:T=@ 

268 J=MS(MV):IF J=@ THEN 370 

278 TA=1:TB=2:GOSUB 399 

280 TA=-1:TB=-2:GOSUB 3990 

298 IF J<33 THEN 330 

308 TA=-11:TB=-22:GOSUB 390 
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TA=-10:TB=-20:GOSUB 399 
TA=-9:TB=-18:GOSUB 399 

IF J>/77 THEN 3690 
TA=9:TB=18:GOSUB 390 
TA=11:TB=22:GOSUB 3998 

E (MV) =E(MV)+T 

NEXT 

GOTO 75@ 

IF B(J+TA)<=8 THEN 420 

IF B(J+TA)<>B(J+TB) THEN 420 
T=T+5 

RETURN 

GOSUB 26498 

GOSUB 1998 

GOSUB 15390 

CCS=CAS:CPS=PAS 

IF FM=2 THEN CCS=CBS:CPS=PBS$ 
IF NP=l THEN PRINT HMS;TAB (37) ;CBS;SK 
PRINT HMS;BSS;CCS;CPS; 

IF NP=l AND FM=2 THEN 5290 
GOTO 92@ 

FOR J=l TO 4 

PRINT BLS; PBS; :NEXT 

IF B(15)=@ THEN MV=5:GOTO 908 
IF B(14)=@8 THEN MV=4:GOTO 908 
FOR MV=l TO 9:J=98+MV:E (MV) =10 


IF B(J)<>@ THEN E(MV)=@8:MS (MV)=@:GOTO 738 


IF B(J-10)<>@ THEN 600 
J=J-18:GOTO 58@ 

MS (MV) =J:IF SK<2 THEN 6690 
B(J)=1l:FM=1:GOSUB 140:B(J)=@0:FM=2 
IF W=l THEN E(MV)=77 

IF SK<3 THEN 660 

B(J)=2:GOSUB 14980:B(J) =@ 

IF W=l THEN E(MV)=99:GOTO 7390 
T=@0:FOR K=-1 TO l 
T=T+B(J-10+K)+3*B(J+K)+B(J+190+K) 
NEXT 

IF MV=4 OR MV=6 THEN T=THl 

IF MV=5 THEN T=T+l 

E (MV) =E (MV) +T 

E (MV) =E (MV) +INT (4*RND (1) ) 

IF MV<9 THEN PRINT BRS; PBS; 

NEXT 

K=@:T=-9:FOR MV=1 TO 9 

IF E(MV)>T THEN T=E(MV) :K=MV 
NEXT 

MV=K: J=MS (MV) 

IF B(J+1@)<>@ THEN 8790 

IF T>=77 THEN 8790 

IF SK=4 AND S4=@ THEN S4=1:GOTO 2590 
IF J+1@>HP THEN SH=HP:HP=J+190 
B(J)=2:B(J+10) =1:FM=1:GOSUB 149 
IF J+1@0>SH THEN HP=SH 
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850 FM=2:B(J)=8:B(J+190) =@ 

868 IF W=l THEN E(MV)=1:GOTO 758 
878 PRINT CLS;CHRS (32) ;HMS;BSS; PBS; 
888 FOR J=l TO 4:PRINT BLS;PBS;:NEXT 
898 IF MV=l THEN 1060 

9880 FOR J=l1 TO MV-1:PRINT BRS;PBS;:NEXT 
918 GOTO 14629 

928 MV=5:GOSUB 15190 

9380 GET RS:IF LEN(RS)=@ THEN 93@ 
948 IF RS=MLS THEN 98@ 

958 IF RS=MRS THEN 1620 

968 IF RS=MUS THEN 1069 

978 GOTO 930 

988 MV=MV-1 

996 IF MV<l THEN MV=1:GOTO 93@4 

108@ PRINT BLS;CPS; 

18018 GOTO 93¢4 

1028 MV=MV+t1 

1030 IF MV>9 THEN MV=9:GOTO 93@ 
1048 PRINT BRS;CPS; 

1858 GOTO 938 

1068 J=90+MV 

1870 IF B(J)<>@ THEN 9390 

1880 PRINT BUS;CPS; 

1090 IF B(J-10)<>@ THEN 1130 

1180 J=J-10:PRINT BUS;CPS; 

1118 FOR K=1l TO 2@:NEXT 

1120 GOTO 1880 

1138 B(J)=FM 

1140 IF J>HP THEN HP=J:SH=HP 

1158 S4=0 

1168 GOSUB 14@0:IF W<>@ THEN 1269 
1178 T=@:FOR J=91 TO 99 

1180 IF B(J)=@ THEN T=l1 

1198 NEXT:IF T=1 THEN 12290 

1200 PRINT HMS;BSS;SCS;"**TIE GAME**" 
1218 GOTO 13280 

1228 GOSUB 124@ 

1238 GOTO 468 

1240 FM=FM+1:IF FM=3 THEN FM=l1 

1258 RETURN 

126@ PRINT HMS;BSS;CPS;SPC(1);"WINS!" 
1278 PRINT SCS 

1280 IF FM=l1 THEN WA=WA+1 

1298 IF FM=2 THEN WB=WBHl 

1306 PRINT TAB(2@);WA 

1318 PRINT TAB(2Q) ;WB; 

1328 MGS="GAME,." 

133@ PRINT HMS:PRINT: PRINT: PRINT 
134@ IF WA<GW AND WB<GW THEN 13824 
1350 MGS="MATCH" :WA=0 : WB=@ 

1368 PRINT TAB(34);"MATCH" 

1378 PRINT TAB(34);"OVER.":PRINT: PRINT 
138@ PRINT TAB(34);"PRESS" 
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PRINT TAB(34);"A KEY" 

PRINT TAB(34);"FOR A" 

PRINT TAB(34); "NEW" 

PRINT TAB (34) ;MGS 

GOSUB 1519 

GET RS:IF LEN(RS)=@ THEN 1448 
IF RS="Q" THEN 28290 

IF RS="R" THEN CLR:GOTO 430 
PRINT CHRS (147) 

GOSUB 22498 

GOSUB 17989 

GOTO 460 

FOR T=l TO 10:GET RS:NEXT 
RETURN 

EDS=CHRS (166) 
PAS=CHRS (79) 
PBS=CHRS (113) 
CAS=CHRS (390) 
CBS=CHRS (149) 
SCS=CHRS (154) 

CES=CHRS (154) 

CLS=CHRS (157) :CRS=CHRS (29) :CUS=CHRS (145) :CDS=CHRS (17) 
FOR J=l TO 21:BSS=BSS+CDS:NEXT 

FOR J=l TO 17:BSS=BSS+CRS:NEXT 
BLS=CLS+CHRS (32) +CLS+CLS+CLS+CLS$ 
BRS=CLS+CHRS (32) +CRS+CRS 

BUS=CLS+CHRS (32) +CUS+CLS 

HMS=CHRS (19) 

MLS="1"sMRS="2":MUS=CHRS (13) 

HLS=CHRS (99) 

GW=2 

PRINT CHRS (147) 

PRINT TAB(2);CHRS(5);TTS;SPC(3); "FROM 'MIND MOVES'" 
PRINT TAB(2);CES; 

FOR J=l1 TO 31 

PRINT EDS;:NEXT 

PRINT 

PRINT TAB(2); 

FOR J=l1 TO 11:PRINT EDS;CHRS (32) ;CHRS(32);:NEXT 
PRINT 

FOR J=l1 TO 8 

PRINT TAB(2);EDS;EDS;TAB(31);EDS;EDS 

PRINT TAB(2);EDS;TAB (32) ;EDS 

NEXT 

PRINT TAB(2);EDS;EDS;TAB(31);EDS$;EDS 

PRINT 

PRINT SCS; 

FOR J=l TO 19:PRINT HLS; :NEXT 

PRINT CHRS (178) ;HLS;HLS;HLS;CHRS (174) 

PRINT SCS; "GAME";SPC(4) ;CAS;PAS;SPC(1);NAS;TAB(19); 
PRINT SCS;CHRS (98) ;WA;TAB (23) ;CHRS (98); 

PRINT TAB(25);“"BEST";GW; "OF";GW+GW-1 

PRINT" SCORE":SPC (3) ;CBS; PB$;SPC(1);NBS$;TAB(19); 
PRINT SCS;CHRS (98) ;WB;TAB(23);CHRS (98) ; 
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2800 
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2040 
2050 
2068 
2070 
2080 
2090 
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2150 
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2320 
2330 
2349 
2358 
2368 
2378 
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2436 
2440 
2450 
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PRINT TAB(25);"GAME MATCH."; 

FOR J=ll TO 99:B(J)=@:NEXT 

FOR J=@ TO 10:B(J)=-1:B(J+10@0) =-1L:NEXT 
FOR J=20 TO 98 STEP 10:B(J)=-1:NEXT 
HP=11:SH=HP 

RETURN 

PRINT CHRS (147) 

PRINT TTS$;SPC(3);"OPTION MENU" 


PRINT 

PRINT"1] - 1 PLAYER GAME (YOU VS. COMPUTER)" 
PRINT"2 —- 2 PLAYER GAME" 

PRINT"3 - CHANGE COMPUTER SKILL LEVEL" 
PRINT"4 - INSTRUCTIONS FOR PLAYING GAME" 
PRINT"5S - END PROGRAM" 

PRINT 


PRINT"PRESS 1, 2, 3, 4, OR 5" 

GET RS:IF LEN(RS)=@0 THEN 2090 

IF RS<"1" OR RS>"5" THEN 2090 

PRINT RS 

IF RS="5" THEN 2820 

NP=VAL (RS) 

ON NP GOTO 2150,2150,2390, 2480 

IF NP=l THEN 2220 

PRINT:NAS=""sNBS="" 

INPUT"NAME OF FIRST PLAYER";NAS 

IF LEN(NAS)=@ THEN 2170 

INPUT"SECOND PLAYER";NBS 

IF LEN(NBS)=@ THEN 2190 
NAS=LEFTS (NAS,9) :NBS=LEFTS (NBS,9) 

PRINT 

IF NP=l THEN NAS="YOU":NBS="COMPUTER" 

IF PF=@0 THEN 23190 

PF=PF+l:IF PF>2 THEN PF=l 

FM=PF 

PRINT"THIS TIME THE FIRST MOVE GOES TO":PRINT 
IF FM=l THEN PRINT NAS:GOTO 2300 

PRINT NBS 

GOTO 2370 

PRINT"BY RANDOM CHOICE, THE FIRST MOVE GOES TO" 
FOR J=l TO 4:FOR K=l1 TO 400:NEXT 
PRINT".":CHRS(32);:NEXT J: FM=1 

J=RND(1):IF J>.5 THEN FM=2:PRINT NBS:GOTO 23690 
PRINT NAS 

PF=FM 

FOR J=l1 TO 2500:NEXT 

RETURN 

PRINT: PRINT: PRINT 

PRINT"THE CURRENT SKILL LEVEL IS";SK 

PRINT: PRINT"LEVEL 1 IS THE WEAKEST OPPONENT," 
PRINT" AND LEVEL 4 IS THE STRONGEST." 

PRINT: PRINT"ENTER 1, 2, 3, OR 4" 

GET RS:IF LEN(RS)=@ THEN 24490 

IF RS<"1" OR RS>"4" THEN 2440 

SK=VAL (RS) 
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2478 
2480 
2499 
2508 
2519 
2520 
2539 
2540 
2558 
2560 
2578 
2580 
2590 
2600 
2619 
2620 
2630 
2646 
2650 
2660 
2678 
26890 
2696 
2760 
27190 
2720 
2730 
2740 
2756 
2760 
2770 
2780 
2798 
2800 
2818 
2820 
2830 
9996 
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PRINT RS:PRINT:PRINT:GOTO 20090 

PRINT: PRINT 

PRINT TTS;SPC(2);"MINI-INSTRUCTIONS":PRINT 
PRINT"THE OBJECT OF THE GAME IS TO GET FOUR" 
PRINT"BALLOONS IN A ROW -- HORIZONTALLY," 
PRINT"VERTICALLY, OR DIAGONALLY. THE Two" 
PRINT"PLAYERS ALTERNATE RELEASING BALLOONS TO" 
PRINT"RISE TO THE HIGHEST AVAILABLE POSITION" 
PRINT" IN THE SELECTED COLUMN. MOVE YOUR" 
PRINT"BALLOON LEFT OR RIGHT WITH THE KEYS" 
PRINT"1] (LEFT) AND 2 (RIGHT). RELEASE THE" 
PRINT"BALLOON WITH THE RETURN KEY.":PRINT 
PRINT"FULL DETAILS ARE IN THE BOOK" 
PRINT"'MIND MOVES' FROM DILITHIUM PRESS." 
PRINT:PRINT"PRESS A KEY TO CONTINUE." 

GET RS:IF LEN(RS)=@ THEN 2620 

GOTO 1990 

PRINT CHRS (147) ;CHRS (142) ;CHRS (8) 

POKE 53269,@80:POKE 53280,7:POKE 53281,/7 
TTS="V E RTI GO" 

PRINT: PRINT 

PRINT TAB(12);TTS 

PRINT: PRINT 

PRINT TAB(4);"COPYRIGHT 1984 DILITHIUM PRESS" 
PRINT: PRINT: PRINT: PRINT 

PRINT TAB(6);"FROM THE BOOK 'MIND MOVES'" 
PRINT: PRINT 

PRINT TAB(5);"BY TOM RUGG AND PHIL FELDMAN" 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

PRINT TAB(9);"PRESS A KEY TO BEGIN" 

GET RS:IF LEN(RS)=@ THEN 2770 

K=RND (-TI) 

J=1:FM=@:MV=0:W=@0:T=0:SK=2:I1=1 

DIM B(110) ,E(9) ,MS (9) 

RETURN 

POKE 53280,14:POKE 53281,6 

PRINT CHRS (147) ;CHRS (9) 

END 


READY. 


EASY CHANGES 


1. You can change the colors and characters used for the 


balloons, playing area edge, and scoreboard by changing 
the values in parentheses in lines 1530 through 1590. See 
the Main Variables section for an explanation of what 
each variable is used for, and see Appendix C of the 
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Commodore 64 Programmer’s Reference Guide for a list 
of which numbers stand for which colors and characters. 
For example, to alter the colors of the two players’ bal- 
loons from green and brown to white and black, make 
these changes: 


1560 CA$ =CHR$(5) 
1570 CB$ =CHR$(144) 


. If you would rather play a match of the best-four-out- 
of-seven games instead of the best-two-out-of-three, 
change line 1690: 


1690 GW=4 


. When you play against the computer, a certain amount 
of randomness is used at all skill levels to prevent the 
computer from always making exactly the same moves 
in the same situations. Increase the randomness by in- 
creasing the 4 in line 720. Try a value of 6 or 8. Decrease 
the randomness by changing the 4 to 2 or 3. Eliminate it 
by changing the 4 to 1. 


. The computer will always move to the center column or 
the column just to the left of center if it has not been 
moved to yet. Eliminate this by deleting lines 540 and 
o00. 


. Change the keys that cause the players’ balloons to be 
moved left, right, and up by changing line 1670. If, for 
example, you would like the keys L, R, and U to cause 
movement left, right, and up, make this change: 


1670 ML$= “L”:MR$ = “R”:MU$ = “U” 


. Eliminate the display of the computer’s skill level by de- 
leting line 480. 
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PROGRAMMER’S NOTEBOOK 


VERTIGO is programmed using some techniques common to 
many board games that involve moving tokens and trying to 
optimize position. The board (playing area) is represented by 
the B array, which has 110 elements. Elements 11 through 99 
(excluding multiples of 10) represent legal positions on the 
board, while zero through 10 and 100 through 110 are used 
to indicate the immediate out-of-bounds. Each element con- 
tains a value to indicate the state of that position on the 
board. Zero means the position is a legal board position that 
is currently not occupied by either player. Values of one and 
two indicate occupation by players one and two. A value of 
minus one means the position is not a legal one (i.e., it is 
beyond the edge of the playing area). 

Element 11 is the upper left corner of the playing area, 19 
is the upper right, 91 is the lower left, and 99 is the lower 
right. This numbering scheme results in the first digit indi- 
cating the row number and the second digit indicating the 
column number of the position on the board. 

The program uses character type graphics, rather than 
sprites, and controls the positioning of the balloons by print- 
ing strings of cursor movement characters. It moves a bal- 
loon by printing a blank character on it to erase it, printing 
a string of cursor movement characters in the appropriate 
direction, and printing another balloon. 

When the computer is the opponent, its move is deter- 
mined based on the skill level in use. Each possible move 
(columns one through nine) is evaluated in turn, and a 
numeric value indicating the strength of the move is calcu- 
lated. These nine values are saved in the E array. The move 
with the highest value is selected unless making that move 
would give the opponent a victory if the opponent moved in 
the same column afterwards. In that case, the move with the 
next highest value is used. 

At skill level 1, the evaluation value for a move is based 
entirely on an analysis of the proximity of the move to pre- 
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vious moves, plus a slight favoritism for columns 4, 5, and 6, 
plus a small random factor to prevent the computer from al- 
ways making the same move in the same situation. The com- 
puter doesn’t look to see if its move will win or block a vic- 
tory, but only to see if there are a lot of earlier moves in ad- 
jacent positions. 

For skill level 2, the computer in addition checks each 
move to see if it can make a move that blocks a victory by its 
opponent. If so, that move is given a high evaluation number 
(77). 

Skill level 3 adds a check to see if each move would result 
in a victory by the computer. If so, each such move is given 
an even higher evaluation number (99). 

At skill level 4, all of the above evaluating is done, but ad- 
ditional factors are added based on whether each move will 
either block an opponent’s two-in-a-row, or extend the com- 
puter’s own two-in-a-row to three. 


MAIN ROUTINES 


140-240 Subroutine to determine if a move to B(J) would 
result in a victory. If so, W is set to one. 

250-420 Subroutine to do the added analysis of skill level four. 

430-510 Mainline logic to call routines that display the title 
screen, initialize variables, display the option menu, 
and go to the proper routines for computer vs. human 
or human vs. human. 


020-910 Determines the computer’s move. 

020-530 Moves computer’s balloon from the position below 
column five to below column one. 

040-550 Immediately selects column five or four if the top row 
is unoccupied. 

260-740 Scans the moves in columns one through nine, 
determining the evaluation value for each. 

750-780 Selects the highest evaluation value and correspond- 


ing move number. 
790-860 Selects MV as the move if the evaluation is high 
enough. Otherwise, checks to see if the subsequent 
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870-910 
920-970 
980-1010 
1020-1050 
1060-1150 
1160-1250 
1260-1420 
1430-1500 


1510-1520 
1530-1980 


1990-2630 


2640-2810 


2820-9990 


VERTIGO 


move by opponent in the same column would win. If 
so, discards move and picks the next-best one. 
Moves computer’s balloon to the position beneath the 
column selected. 

Processes human player’s movement of balloon left, 
right, and up, based on keys pressed. 

Moves human player’s balloon left one column. 
Moves human player’s balloon right one column. 
Moves either player’s balloon up to the highest avail- 
able position in the column. Updates board. 

Checks if anyone won the game or if a tie occurred. 
Goes back to get the other player’s move if not. 
Shows who won, updates scoreboard, sees if the 
match has ended. 

Waits for a key to be pressed for next game/match. 
otarts new game. 

Subroutine to empty the keyboard buffer. 
Subroutine to initialize variables, display playing 
screen, initialize board. 

Subroutine to display the option menu and process 
responses, determine who goes first, etc. 

Subroutine to display title screen, initialize some 
variables. 

Resets screen colors and ends program. 


MAIN VARIABLES 


VERTIGO board (playing area) array. 

Evaluation value array. 

Array of move subscripts. Contains subscripts of the 
nine possible moves. 

Move currently being evaluated (column number). 
Player who gets first move; also current mover. 
Work and subscript variables. 

Temporary work variables. 

Skill level. 

Constant one. 

Number of human players in the game (1 or 2). 
Player who went first in the game. 
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Number of games needed to win the match. 
Temporary work variables for skill level 4 analysis. 
Highest position occupied in B array so far. 

Work variable to save HP. 

Program title (with alternate blanks). 

Reply from keyboard. 

Names of the two players. 

Graphics character for edge of playing area. 
Graphics balloons used for the two players. 

Colors of the two players. 

Scoreboard color. 

Color for the playing area edge character. 

Cursor movement strings for moving left, right, up, 
and down. 

String to move the cursor to the balloon start 
position. 

Strings to move a balloon left, right, and up. 


String to move the cursor to the home (upper left 
corner) position. 
Keys pressed by the player to move left, right, up. 


Horizontal line graphics character. 

Current player’s color and graphics character. 
String indicating whether it was a match or a game 
that just ended. 


SUGGESTED PROJECTS 


1. Alter the computer’s playing strategy, or add higher 
skill levels. 


2. Switch the game to a different-sized playing area, either 
larger or smaller than the nine-by-nine area used in this 
version. 
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Software Backup and Loading Instructions 


WHAT YOU NEED TO RUN THE PROGRAMS 


1. 


Commodore 64 computer with a single disk drive. These 
instructions assume you have the Commodore VIC-1541 
disk drive. If you have another type, the procedure to 
follow may differ. 


The dilithium Mind Moves diskette that is the compan- 
ion to the book. 


. Ablank diskette that has been formatted with the NEW 


command in accordance with the instructions in the 
VIC-1541 Single Drive Floppy Disk User’s Manual. 
Here is a command to do this. (Don’t confuse the letter 
O with the number 0.) 


OPEN 15,8,15,“NEW0:MM,01” 


PRELIMINARY STEPS 


Make a working (backup) copy of the dilithium disk. 


1. 


Turn on the Commodore 64 computer, the disk drive, 
and the TV set or monitor. 


. Put the dilithium disk into the disk drive and close the 


disk drive door. 
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. Enter this command: 
LOAD“ AEROJAM”,8 


. The Commodore 64 will display SEARCHING FOR 
AEROJAM on the screen, then LOADING, then (after 
20-60 seconds) READY. 


. Remove the dilithium disk from the disk drive, and 
insert your formatted blank diskette. This will become 
the working copy of your diskette. 


. Enter this command: 
SAVE“AEROJAM”,8 


. The computer will display SAVING AEROJAM on the 
screen, then (after 20-60 seconds) READY. 


. Repeat steps 2 through 7 for each of the other programs 
on the dilithium disk. The programs are: 


AEROJAM QUIKWORD 
ESCAPADE VERTIGO 
HOTSHOT QMAKER 
QUIKWIT SEQCOPY 


. You now have a disk with a copy of all the Mind Moves 
programs (six game programs plus two utility pro- 
grams). You now must copy the four QUIKWIT data 
files onto this disk. This requires the use of a special 
utility program such as the one we have provided on 
your disk. This program, called SEQCOPY, copies a 
sequential data file from one diskette to another. 
(Sequential data files are the type used by QUIKWIT.) 
SEQCOPY is easy to use. It begins by asking you the 
name of the source file. This is the file you wish to have 
copied. Then it asks the name of the target file. This is 
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the name you wish to call the data file on the new disk. 
Typically the two names are identical. 

Four sequential data files accompany the QUIKWIT 
program, and you need to run SEQCOPY four times to 
copy all of them. Their names are witspo, witgen, witsci, 
and witart. When entering these names for SEQCOPY, 
Keep the titles all in lowercase and don’t include any 
punctuation marks. 

After you provide the names, SEQCOPY tells you to 
put in place the source disk (the one with the original 
data file) then to hit a keyboard key to signal you're 
ready. Next, the program tells you it’s reading the file. 
When it’s done, it indicates how many data records (or 
lines) it read. This should be 701 records for the 
QUIKWIT files as provided with the software (one line 
of the category name plus 100 complete questions each 
consisting of two lines for the question proper and five 
for the answer list.) 

Next, SEQCOPY requests that you put the target disk 
in the disk drive then hit any key. The program writes 
the new copy and indicates when it’s finished. Voila! 


Once the eight programs and the four data files are 
copied onto your working disk, put the original 
dilithium disk in a safe place. Use only your working 
copy. That way you can easily recreate another working 
copy in case the first working copy is damaged, lost, or 
(eventually) worn out. Label your working copy as 
follows: 


MIND MOVES COPY. 
COPYRIGHT 1984 DILITHIUM PRESS. 


Note that these programs and data files are copyrighted, 
and it is illegal for you to make copies to give or sell to 
others, or to allow others to make copies of your disks. 
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USING THE PROGRAMS _ 


1. Turn on the Commodore 64 computer, the disk drive, 
and the TV set or monitor. 


2. Select the program you would like to run. Read about 
the program in Mind Moves so you will know how it 
works. Then, load the program from disk into the 
Commodore 64’s memory with the command: 


LOAD “program” ,8 


Substitute the chapter name for the word program in 
the LOAD command. For example, if you decide to try 
VERTIGO, the command is: 


LOAD“VERTIGO”,8 


After the program is loaded and you see the READY 
message, enter the command RUN and press [RETURN] 
to begin the game. 


3. After you end a game and see the READY message on 
the screen, go back to step 2 to try the next program. 


TROUBLESHOOTING 


1. Details about what to do when things don’t work right 
are shown in the How To Use This Book section at the 
front of the book. Read the sections of the manuals 
mentioned there to be sure you are operating the 
Commodore 64 properly, and read the book chapter for 
the program you are using to be sure you fully 
understand how the program is supposed to work. 


2. If all else fails and you have carefully read all these 
instructions, refer to the Errata Offer section in the 
back of the book. 
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QUIKWIT Cassette Version 


he QUIKWIT chapter presents a disk-based version of 
the game. If your system is cassette-based and you are 
typing in the programs yourself, this appendix shows you 
how to modify the program to use cassette data files. We 
must caution you, however, that cassette data files are slow 
and relatively unreliable. If you have a choice, by all means 
use a disk. Some other differences between the diskette and 
cassette versions are explained later in this appendix. 

The cassette-based version of QUIKWIT is similar to the 
disk-based version. If you’re typing in the program, use the 
listing from the QUIKWIT chapter, except use the following 
statements as presented here to replace and add to those in 
the QUIKWIT chapter. Most of these statements replace 
statements of the same line numbers as those in the 
@QUIKWIT chapter listing. A few, however, are new line 
numbers completely. 


250 fz=1 
350 de(1)=0:de(2) = 1:de(3) = 0:de(4) =0 
990 add=704:page = add/64 
2980 k=0 
2990 k=k+1:if dc(k)=0 and k< =nf then 2990 
3000 for q=1 to 24 
3010 input#1,a$(1,q):input#1,a$(2,q): 
for z=1 to 200:next 
3020 for j=1 to 5:input#1,b$(j,q):next 
3025 for z=1 to 200:next 
3050 goto 3400 


3240 
3290 
3260 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3432 
3434 
3680 
3690 
3870 
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print bk$; “Initializing cassette files.” 
cd=7:gosub 3180 

rem 

k=0 

k=k+1:if de(k)<>0 then 3340 

if k<nf then 3290 

cd=15:cr=0:gosub 3180 

print bk$;“Fatal error -- no files requested.” 
gosub 2530:cd =21:cr=0:gosub 3180:end 
open 1,1,0,£$(k):q = dc(k) 

if q<0 then gq =int(fz*rnd(1))+1 
input#1,c$(k):if q=1 then qn(k)=0:goto 3430 
qn(k) = q —1:p=7*qn(k):for j=1 to p 
input#1,r$:if st<>0 then 3400 

next:goto 3430 

close 1:cd=15:cr=0:gosub 3180 


print bk$;“Fatal error, end of tape reached.” :end 


rem 

print“Hit a keyboard key.” 

get r$:if r$ =“” then 3432 

return 

print“No.” ;tab(5); “Name” 

for k=1 to nf:print k;f$(k):next:return 
next:if q>=1 then 4060 


Don’t forget to have your computer in lowercase text 
mode before you type in these changes. To do this, type in 
the following statement: 


PRINT CHR$(14) [RETURN] 


Of course, to use the cassette version of QUIKWIT, you 
must have the data files available on cassette. See Appendix 
C for an explanation of how to create them and back them 
up. You also can use instructions in Appendix C to create 
your own additional QUIKWIT question files. 

There are some differences between the way the 
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(JUIKWIT program operates in the cassette mode and the 
way it operates in the diskette mode. Only one file can be 
active at a time in the cassette mode, and you cannot read 
past the end of the file, or an error results. This requires you 
to be aware of where you are in each file. 

Each time the program reads data from the cassette, a 
block of 24 questions is read. This means each data file must 
contain at least 24 questions, and you must start each block 
read at a question number at least 24 questions before the 
end of the file. Thus, be careful when using main menu 
option 3 that you don’t specify too large a starting number. 
The random start request in option 3 confines the starting 
number to a value no greater than that set by the variable 
fz in line 250. If your data file contains more than 24 
questions, change the value of fz in line 250 to the number 
of questions in the file minus 23. This ensures you can’t read 
past the end of the tape on the first block read when the 
random start is selected. Also, if you request that more than 
one file be turned on, only the first will actually be used. If 
you don’t use option 3 at all, the file request will automati- 
cally be for the data file witgen (General Information) 
beginning at question one. 

Before you select main menu option 1 or 2 to start the 
game, try to have the cassette tape positioned properly. You 
can always have the tape at the beginning, because the 
cassette version of QUIKWIT will search the tape for your 
requested file. However, if your desired file is in the middle 
of the tape, this search process will be tedious. If you know 
approximately where the file starts, position the tape 
somewhat in front of it. This will greatly cut down the 
search time. 

After you select option 1 or 2, the program will request 
that you press the play button on the recorder. When you do 
so, the display screen will blank out while the cassette tape 
is searched for your requested file. When the file is found 
and initialized, the program will ask that you press a 
keyboard key to continue. Then the first block of 24 
questions will be read from the cassette tape and QUIKWIT 
will be off and running. 
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QUIKWIT Data Files 


QUIKWIT DATA FILE CREATION 


QUIKWIT game program questions are stored in data 
files. If you’ve purchased our software package, these files 
are contained on your diskette. If not, you have to create 
these files. You use the program in this appendix to do just 
that. Even if you have our software, you may want to use 
this program and create some of your own question files to 
spring on unsuspecting friends. 

The program presented here and included on dilithium’s 
ready-to-run software is called QMAKER (for Question 
Maker). It prompts you to enter questions and creates files 
for use with QUIKWIT on either disk or cassette. 

QUIKWIT assumes that four data files are present. These 
files are called witspo, witgen, witsci, and witart. They 
contain questions in the categories of sports, general 
information, science, and the arts, respectively. Should you 
desire some other number of data files (more than four if 
you add some of your own, fewer than four if you don’t type 
them all in) or wish to rename some of the files, you must 
make some changes to QUIKWIT. 

Please refer to the program listing of QUIKWIT. Here’s 
how to tell it what files are available. First create all the 
data files you desire using QMAKER. Then set the variable 
nc in line 270 of QUIKWIT to the total number of data files 
available. The string array f$ contains the names of each of 
these data files. They are enumerated in lines 300-330 of 
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QUIKWIT. Change these names or add or subtract some as 
appropriate. Once this is done, QUIKWIT should be ready 
to run. 

Now let’s discuss how to use the QMAKER program. 
When you run it, the first thing it does is request the name 
of the data file you wish to create. Enter this name followed 
by [RETURN]. Make sure you have your diskette or cassette 
tape properly positioned, as data will be written to it 
shortly. The program next asks you whether a disk or 
cassette will be used. Type D or C (followed by [RETURN]) 
as appropriate. 

The screen display shifts to uppercase/lowercase mode. 
Enter the category name for the file of questions you’re 
about to enter. The display now changes to its basic data 
entry screen. There are four parts to this screen. The upper 
box shows the name of the file being created and the current 
question number being entered. A question box and answer 
box hold the main text of each question and its list of 
answers. And the bottom box indicates what action is 
desired next. 

A check mark prompts you for each input line one at a 
time. A diagonal line symbol acts as a cursor to show where 
the next character you type will appear. Type in your data 
using uppercase and lowercase characters. The cursor will 
not let you go past the end of any expected line. Hit 
[RETURN] to end each line of input. If an input line is to be 
blank, just hit [RETURN] immediately. Should you make a 
typo on a line, use the [DEL] key to back up the cursor and 
retype your data. 

The quote mark cannot be displayed with this program. 
When you use the quote key (”), an up arrow appears where 
the quote mark should go. This is only for the purpose of 
QMAKER. The data file will be written properly, and the 
quote mark will appear as expected when QUIKWIT is run. 

Each question is input in the two lines of the question 
box. Be sure to space your questions between the two lines 
as desired. If the second line is not needed, simply hit 
[RETURN] when prompted for it. 
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You must now type in the answer possiblities. You can use 
up to five but must, of course, have at least two. Each 
possible answer goes on a separate line — the numerals 1 to 
0 are already there for you. Place the correct answer first, 
in the space for answer 1. QUIKWIT will shuffle your 
answers when it presents each question. 

After each question is entered, along with its answers, 
QMAKER wants to know if it was typed OK. You have three 
possible replies. Type y to indicate yes, that you’re ready to 
type in the next question. Type n to indicate no, that you 
would like to retype it. (Use this option if you find a 
mistake.) Type f to indicate that question is okay and that 
the file is now finished. This will write the last piece of data 
on the disk or cassette, close the file, and exit QMAKER. 

If you’re creating files on disk, there is no restriction on 
the minimum number of questions for each file. If you’re 
using a cassette, however, each file must contain at least 24 
questions. 

The listing of QMAKER is printed in lowercase text mode. 
Get your computer in this mode before typing in the 
program. To do this, type in the following statement: 


PRINT CHR$(14) [RETURN] 


Following the listing of QMAKER are some sample 
questions to get you going on each of the four data files. 
Space limits us to 25 questions for each file. Many more 
questions come with the software package. 


QMAKER Program Listing 


10@ rem: qmaker 

118 rem: copyright 1984 dilithium press 

128 rem: by phil feldman and tom rugg 

138 poke 53269,@:poke 53288,1l:poke 53281,13 
148 print chrS (28) ;chrS$ (147) 

15@ print chrS(8);chrS$(142) 

168 print "quikwit data file creator" 

170 print:input"name of file to create";fS 
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if len(f$)=@8 then 179 
close 4:close 15:print:print 


print:print"make sure disk or cassette is ready." 
print:input"what medium (d=disk or c=cassette)";dS 


if dS="d" then 258 

if d$<>"c" then 2190 

open 4,1,2,f£S:goto 2890 

open 15,8,15:open 4,8,4,"0:"+f£S+",s,w" 
input#15,t$,r$ 

if t$<>"OG" then print:print"error - “;rS:end 
print chrS (147) ;chrS (14) 

print"Now in lower case mode" 


print:print"Input the question category for this" 


print"file. Examples might be:":print 


print" General Information" 
print" Sports" 

print" Science and Nature" 
print" Arts and Entertainment" 


print:input"Category";cs 

if len(cS$)=@ then 369 

print#4,c$ 

dim a$(2),b$(5) 

n=@0 

zS=chrS (129)+chrS (18) 

for j=l to 40:zS=zS+chrS (32) :next 
yS=""sfor j=l to 40:yS=yS+chrS$ (29) :next 
print chrS (147) ;chrS (14) 

poke 5328@,8:poke 53281,15 
n=n+l:gosub 72@ 

m=38 

for q=l to 2:print chrs(19) 

for p=l to 7+q:print chr$(17);:next 
print chrS(18);chrs$ (144) ;chrS (186) ;chrS$ (146) ; 
gosub 93@:a$(q)=tS:print:next 

m=31 

for q=l to 5:print chrs$(19) 

for p=l to llt+tq:print chrS$(17);:next 
print chrS$(18);chr$ (186) ;chrS$ (146); 
for p=l to 5:print chrS (29);:next 
gosub 9380:bS(q)=t$:print:next 

for j=l to 4:print chrS$(17);:next 
print" Is question OK (y, n, or £)?"; 
get rS:if len(rS$)=@ then 6980 

if r$="y" or rS="f" then 65¢ 

if rS="n" then 648 

goto 600 

n=n-l:goto 469 

print#4,aS(1) 

print#4,aS$ (2) 

for j=l to S:print#4,bS$(j):next 
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6808 
6998 
780 
71@ 
720 
730 
740 
75@ 
766 
77@ 
780 
79@ 
809 
818 
820 
83 
848 
85d 
860 
879 
88 
898 
98d 
919 
920 
939 
940 
958 
9608 
978 
989 
99@ 
1080 
181@ 
1020 
1830 
1949 
1858 
1960 
187@ 
1880 
1098 
1100 
1119 
1120 
113@ 
1148 
1158 
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j=fre(d) 

if rS="y" then 460 

close4:closel5 

end 

print chrs$ (147) 

print chr$(28);" QMAKER -- creating file:";£S 
print 

print" Question #"s;n:print 

print" Use [RETURN] to end each input line" 
print:print ZS; 

print leftS(zS,9);"question box"; left$(z$,23); 
print left$(z$,3);leftS(y$,38) ;chr$ (32); 

print left$(zS,3);leftS (y$,38);chr$ (32); 

print zS;leftS(z$,09);"answer box";leftS(z$,25); 
for j=l to 5 

print left$(zS,3);chrS (144) ;chrs (146) 33; 


print "-"schrS (32);lettS(y$,31);left$(z$,5); 
next 

print z$ 

print chr$(145);chr$(31);" Next action" 
print" y - yesS, proceed to next question" 
print" n - no, redo this one" 

print" f - yes, but file is now finished" 
print chrS$(19); 

return 

tS=""3fg=G 


print chrS$(169);chr$(157); 
get rS:if len(r$)=@0 then 94@ 
if len(tS)<m then 999 
if asc(rS)=13 then 11290 
goto 949 
1f asc(rS$)<>2@ and asc(rS$)<>148 then 103@4 
1f len(t$)=0 then 9490 
print chrs (32);chr$(157);chr$ (157); 
tS=left$ (t$,len(t$)-1):goto 949 
1f asc(r$)=17 or asc(rS$)=29 or asc(rS)=145 then 94@ 
if asc(r$)=157 or asc(r$)=147 or asc(r$)=19 then 940 
if rS="," then print",";:tS=tS+chr$(100):fg=l: goto 94¢ 
if rS=":" then print":";:tS=tS+chrS (101):fg=l:goto 94¢ 
if rS=";" then print"; ";:tS=tSt+tchr$(102):fg=l:goto 94@ 
if asc(r$)=34 then print chr$(94);:t$=tSt+chr$ (1903) 
if asc(rS)=34 then fg=l:goto 949 
if asc(rS$)=13 then 1120 
tS=tS+rS:print rS$;:goto 94¢ 
if len(tS)=@ then tS=chrS (104) 
print chrS (32) 
if fg=l then tS=chr$(105)+ts$ 
return 


y. 
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File:WITSPO 
Category:Sports and Games 


Question # 1 
What is the highest anyone ever pole 
vaulted with a bamboo pole? 
1 - Between 15-17 feet 
- Between 11-13 feet 
- Between 13-15 feet 
- Less than 1l feet 
- Over 17 feet 


Wm WN 


Question # 2 
Duke Kahanamoku was a pioneer in what 


sport? 

1 - Surfing 

2 ~ Soccer 

3 - Football 
4 - Wrestling 
5 - Diving 


Question # 3 
What basketball player was known as 
"Hondo"? 

1 - John Havlicek 

2 - Hal Greer 

3 - George Mikan 

4 - Austin Carr 

5 - Bobby Jones 


Question # 4 
Who pitched 12 perfect innings and 
lost the game? 
1 - Harvey Haddix 
- Catfish Hunter 
- Jim Bunning 
- Don Larsen 
~ Don Drysdale 


OW & Wh 


Question # 5 

How many warm-up pitches is a relief 
pitcher allowed upon entering a game? 

1. = 8 

2- 6 

3 - 18 

4 r2 

5 one minute's worth 


Question # 6 
How much money is given to a player 
at the start of Monopoly? 


1 - $1508 
2 - $1142 
3 - $2000 
4 - $1756 
5 - $1358 


Question # 7 
What position did Sammy Baugh play? 


1 - Quarterback 

2 - Forward 

3 - Third Baseman 
4 - Goalie 

5 - Pitcher 


Question # 8 
What is Red Auerbach's real first 


name? 
1 - Arnold 
2 - Harvey 
3 - John 
4 - Robert 
5 - Stanley 


QUIKWIT Questions ———-—————_ 


Question # 9 

Who stole home more than any other 
major leaguer? 

- Ty Cobb 

~ Lou Brock 

- Maury Wills 

- Luis Aparicio 

- Owen Wilson 


We WN Fk 


Question # 18 

The heaviest fresh water white catfish 
ever caught with rod & reel weighed... 
- 17 lb. 7 oz. 

- 36 lb. 

122 lb. 9 oz. 

- 81 lb. 14 oz. 

- 58 lib. 9 oz. 


Wm WN Fe 
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Question # ll 
Which chess piece cannot move 


backwards? 
1 - Pawn 
2 - Rook 
3 - King 
4 - Knight 
5 - Bishop 


Question # 12 
The Vare Trophy is awarded to..... 


~ Female golfers 

- Highest average bowlers 
Hockey goalies 

- Football defensemen 

- College football coaches 


Wm WN 
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Question # 13 
Who was head coach at UCLA during 
their basketball empire? 


1 - Wooden 

2 - Rupp 

3 - Driesell 
4 - Meyer 

5 - Knight 


Question # 14 

Which baseball team won a record 11l 
games in one season in 1954? 

- Indians 

- Yankees 

- Tigers 

~ Red Sox 

White Sox 


Wm WN Fr 


Question # 15 
Who has the most career base on balls? 


1 - Babe Ruth 

2 - Lou Gehrig 
3 - Ty Cobb 

4 - Hank Aaron 
5 - Stan Musial 


Question # 16 

Which major tournament has Arnold 
Palmer never won? 

~ PGA 

- US Open 

Masters 

- British Open 

- Has won them all 


Wm WN 
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Question # 17 
In what city did the Lakers play 
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before Los Angeles 
1 - Minneapolis 
2 - Cincinnati 
3 - Philadelphia 
4 - St. Louis 
5 - Hartford 


Question # 18 
Who has won the most NBA most valuable 
player awards? 


1 - Abdul-Jabbar 
2 - Russell 

3 - Chamberlain 
4 - Malone 

5 - Erving 


Question # 19 
Which sport's rules are based on 
Marquess of Queensbury rules? 


1 - Boxing 

2 - Polo 

3 - Cricket 

4 - Horse Racing 
5 - Baseball 


Question # 20 
Which sports announcer was NOT a 
professional athlete? 
1 - Howard Cosell 
- Jim Palmer 
- Lynn Swann 
- Frank Gifford 
- Don Meredith 


Un B W NO 


Question # 21 
What pitcher has the most career wins? 


- Cy Young 

- Walter Johnson 
Grover Alexander 
- Christy Mathewson 
- Steve Carlton 


Wm WN 
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Question # 22 
Who was the first woman named Sports 
Illustrated's Sportsman of the Year? 


- Billie Jean King 
- Chris Evert 
Peggy Fleming 

- Wilma Rudolph 

- Nancy Lopez 


OF WN rH 
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Question # 23 

Which driver has won the most 
Indianapolis 5808's? 

- A.J. Foyt 

- Parnelli Jones 

- Bill Vukovich 

- Johnny Rutherford 

- Mario Andretti 


Ulm WN Fe 


Question # 24 
Which term is NOT common to both 
basketball and football? 

1 - Offsides 


2 - Pass 

3 - Field Goal 

4 - Out of bounds 
5 - Turnover 


Question # 25 
How many laps are there in the Indy 
500? 


1 - 288 
2 - 58@ 
3-1 

4 - 188 
5 - 561 


File:WITGEN 
Category:General Information 


Question # 1 
Fala waS a..... 


- Dog 

- Goddess 
Drink 

-~ Dance craze 
- Song 


Um Wh Fr 
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Question # 2 
Night blindness is caused by a 
deficiency of which vitamin? 


l1-A 
2- 8B 
3 -C 
4 -D 
5 - None of the other choices 


Question # 3 

Which ship rammed and sank a British 
cruiser killing 338 passengers? 

- Queen Mary 

- Andrea Doria 

- Titanic 

- Love Boat 

- Princess Victoria 
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Question # 4 
There are more Russians than 
Americans. 


1 - True 
2 - False 
3 

4.2 

5 - 


Question # 5 
What did the Marlboro Man have 
tattooed on his hand? 


1 - Eagle 
2 - Snake 
3 - Flag 
4 = " Mom" 
5 - Ship 


Question # 6 
Which car was NOT produced by a U.S. 
manufacturer? 


1 - Dasher 
2 - Skylark 
3 - Cutlass 
4 ~ Impala 
5 - Polara 


Question # 7 
How many years is fourscore and seven? 


1 - 87 
2-7 

3 - 47 
4 - 407 
5 - 46 


Question # 8 
Which country has the SECOND most 
television sets in the world? 

1 - USSR 


2 - USA 

3 - Japan 
4 - India 
5 - Canada 


Question # 9 
Where did the zeppelin Hindenburg 
burn? 

1 - New Jersey 
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2 - Germany 

3 - Atlantic Ocean 
4 ~ Scotland 

5 - California 


Question # 19 


For what charge was Al Capone finally 


imprisoned? 


1 - Tax Evasion 

2 - Murder 

3 - Loitering 

4 - Treason 

5 - Grand larceny 


Question # 1l 


From 1828-1988, which country produced 


the most immigrants to the U.S? 


1 - Germany 

2 - Great Britain 
3 - Italy 

4 - Ireland 

5 - U.S.S.R. 


Question # 12 
What best describes Bebe Rebozo's 
relationship to Richard Nixon? 
l - Pal 
- Press officer 
- Lawyer 
- Cabinet member 
- Relative 


UOT wm W Nh 


Question # 13 
The Pony Express ran between 
California and what state? 

1 - Missouri 


2 - Kansas 

3 - Colorado 
4 - Oklahoma 
5 - Texas 


Question # 14 
"Corpus delicti" might get you..... 


1 - Convicted 
2 - Initiated 
3 - Lost 

4 - Nauseous 
5 - Itching 


Question # 15 

In what field might you use a P.E. 
ratio? 

l - Stock market 


2 - Geometry 

3 - Physics 

4 - Interior decorating 
5 - Basketball 


Question # 16 
A lavalier is an..... 


- Ornament 

- Island 
Inconvenience 
- Automobile 

- Enemy 


Ol ®m® WD Pe 
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Question # 17 


Richard Burton refused to eat cooked 


peas. 
l - False 
2 - True 
a2 
4 - 
5 - 


Question # 18 
What do Camp Fire Girls sell? 


1 - Mints 

2 - Cookies 

3 - Seeds 

4 - Kindling 
5 - Magazines 


Question # 19 
What was the first name of the 
red-baiting McCarthy? 


1 - Joseph 
2 - Eugene 
3 - Len 
4 - Sam 
5 - Ian 


Question # 20 
Which country is NOT landlocked? 


- Belgium 

~ Afghanistan 
Switzerland 
- Nepal 

- Luxembourg 


U1 om Ww hm eH 
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Question # 21 


Who said, "Give me liberty or give me 


death?" 

~ Patrick Henry 

- Benedict Arnold 

- Nathan Hale 

- Paul Revere 

- Paul Revere and the Raiders 


WO & WN Fe 


Question # 22 
Dan Cooper waS a..... 


l1 - Hijacker 

2 - Pianist 

3 - Lawyer 

4 - Civil Rights leader 

5 - Supreme Court justice 


Question # 23 
Which letter is NOT on the telephone 
dial? 


Wom Wh Fe 
i 
AUVUIN 


Question # 24 
In which of these activities do the 
most Americans participate? 


1 - Swimming 
2 - Jogging 
3 - Tennis 

4 - Bowling 
5 - Golfing 


Question # 25 
Who was NOT assasinated? 


1 - Batista 

2 - Huey Long 

3 - Trotsky 

4 - Gandhi 

5 ~ None of the other cnoices 
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File:WITSCI 
Category:Science and Nature 


Question # 1 
Which is the LEAST common blood type 
in the U.S&.? 
1 - AB 
2-A 
3 - B 
4 - O positive 
5 - O negative 


Question # 2 
Which of these men was NOT a Greek 


philosopher? 
1 - Aristophanes 
2 - Democritus 
3 - Eratosthenes 
4 - Thales 
5 - Archimedes 


Question # 3 
Monsoons are always..... 


- Heavy winds 

- Rainy storms 

All of the other answers 
- Humid squalls 

- Floods 


Um WN 
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Question # 4 
Euclid's greatest contribution was 
tO....- 


1 - Mathematics 
2 - Physics 

3 - Chemistry 

4 - Astronomy 

5 - Biology 


Question # 5 

What is the area of a rectangle three 
feet by four feet? 

- 12 square feet 

- 7 square feet 

-~ 14 square feet 

- 36 square feet 

- 28 square feet 


U1 & WN 


Question # 6 
What is stagflation? 


- Hi unemployment-Low inflation 
- Low unemployment-Low inflation 
Hi unemployment-Hi inflation 

- Low unemployment-Hi inflation 
-~ Bachelor Party 


Wm WN FF 
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Question # 7 
Which is the "Sunshine Vitamin"? 


Wm WN Ff 
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D 
Cc 
Bl 
A 
E 


Question # 8 
What is the approximate duration of a 
solar day? 


1 - 24 hours 

2 - 12 hours 

3 - 7 days 

4 - 68 minutes 
5 - 36.3 days 


Question # 9 
How many millimeters in a meter? 


Wm WN ke 
| 
e 
bw 
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Question # 10 
An icosahedron has how many sides? 


1 - 29 
2S--12 

3 - 9 

4 - 186 
5 - 1008 


Question # ll 
The fallopian tube was first 
described by..... 
1 - Fallopius 
2 - Vesalius 
3 - Marcus Welby 
4 - Hippocrates 
5 - Gray 


Question # 12 
Where are you farthest from the 
Earth's center? 
1 - Equator 
- North Pole 
- South Pole 
- Tropic of Cancer 
- Tropic of Capricorn 


WW & W DN 


Question # 13 
Which animal lives longest? 


- Man 

- Killer whale 
Turtle 

- Asiatic elephant 
- Boa constrictor 


Wm WwW hr 
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Question # 14 

Braille was invented by a Frenchman 
named Louis Braille. 

- True 

- False 


Ue WN Ee 


Question # 15 
The large intestine is also known as 
the..... 


1 - Colon 

2 - Caecum 

3 - Ileum 

4 - Coccyx 

5 ~ Appendix 


Question # 16 
Which of these men first believed 
that the world was round? 


1 - Pythagoras 

2 - Christopher Columbus 
3 - Archimedes 

4 - Plato 

5 - Aristotle 


Question # 17 
Which mosquitos bite? 


1 - Females only 
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Males only 
Both males and females 
Neither males nor females 


Question # 18 
Which of these animals can be 
venomous? 


All of the other choices 
Ants 

Water moccasins 

Octopi 

Scorpions 


Question # 19 
Could a Siamese cat see in a pitch 
black cave? 


UT 1B WN fF 


No 
Yes 


Question # 26 


When did Gutenberg invent the printing 


press? 
1 - 1458 
2 - 1388 
3 - 1625 
4 - 1779 
5 - 1824 


Question # 21 


"D, D. 


Wm WN e 


Son 1Sé6ea-d 


A dental degree 

An insecticide 

A feminine hygiene spray 
An element 1n gunpowder 
An enzyme 


Question # 22 


What 


U1 wm WN FF 
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does an altimeter measure? 


Height 
Viscosity 
Weight 
Depth 
Moisture 


Question # 23 
Which state is in both the Western 
and Eastern hemispheres? 


oS 


Un Bm W do 


Alaska 

Hawaii 

Maine 

Florida 

None of the other choices 


Question # 24 
A tsuranagakobitozami is a..... 


1m WR HH 
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Shark 

Ion 
Semiconductor 
Measuring device 
Chicken Egg 


Question # 25 


The decimal equivalent of 2/11 is..... 


OB Whe 


-1818 
~ 2222 
- 1616 
a a 
L111 


File:WITART 
Category:Arts and Entertainment 


Question # 1 
Most theatrical movies are screened 


Ate < wed 
1 - 35 millimeters 
2 - 16 millimeters 
3 - 78 millimeters 
4 - None of the other choices 
5 - 8 millimeters 


Question # 2 
Barry Sadler sang a #1 song about..... 


- Green berets 
- Pink houses 
Red balloons 
~ Blue eyes 

- White rooms 


Um Wh re 
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Question # 3 
On what TV show did Kookie appear? 


- 77 Sunset Strip 
- Route 66 
Three's Company 
- It Takes Two 

- Surfside Six 


U1 m& W NO F 
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Question # 4 
Which of the following was NOT a 
gossip columnist? 

1 - Bob Woodward 

2 - Louvuella Parsons 

3 - Hedda Hopper 

4 - Army Archerd 

5 - Rona Barrett 


Question # 5 
Who said, “Not so fast, Louis"? 


- Humphrey Bogart 
- Dean Martin 
Keely Smith 

- Mae West 

- Roger Moore 


U1 Whe 
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Question # 6 
Which was NOT an Elvis Presley film 


role? 

1 - Sandy Tuttle 

2 - Deke Rivers 

3 - Dr. John Carpenter 
4 - Toby Kwimper 

5 - Joe Lightcloud 


Question # 7 
"The Girl From Ipanema" is an example 
of what type of music? 
1 - Bossa Nova 
2 - Reggae 
3 - Heavy Metal 
4 - Calypso 
5 - Gospel 


Question # 8 


Elvis Presley never won a Grammy. 
1 - False 
2 - True 
— 
A ou 
5 + 


Question # 9 
Richard Penniman is also known as.... 
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- Little Richard 
- Richard Dawson 
Richard II 

- Capt. America 
- Dick Buttons 


om Wh FF 
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Question # 190 

Elmer is the original name of..... 
1 - Howdy Doody 
2 - Bozo the Clown 

- Charlie Brown (in Peanuts) 

- Blondie 

- Goofy 


Un im W 


Question # 1l 
Which rock act is NOT American? 


1 - Def Leppard 
2 - Journey 

3 - Styx 

4 - R.E.M. 

5 


- Quiet Riot 


Question # 12 
Greystoke was the real last name of... 


l - Tarzan 

2 - Green Lantern 
3 - Batman 

4 - Flash Gordon 
5 - Spiderman 


Question # 13 
Mycroft has a brother named..... 


- Sherlock Holmes 
- Tom Swift 

James Bond 

- Mickey Mouse 

- Indiana Jones 


UT om W Dh 
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Question # 14 
What kind of physical activity did Van 
Halen encourage in their 1984 hit? 


1 - Jumping 

2 - Throwing 

3 - Running 

4 - Surfing 

5 - None of the other choices 


Question # 15 

Which of the following NEVER played 
a gangster in a movie? 

~ Al Capone 

- George Raft 

Jimmy Cagney 

Al Pacino 

- Humphrey Bogart 


WM & WN & 
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Question # 16 
Who was Bob Hope's partner in "The 
Road" movies? 
1 - Bing Crosby 
- Dean Martin 
- Frank Sinatra 
- Sammy Davis Jr. 
- Joe E. Louis 


Wn & Wd 


Question # 17 
How many horns did the purple people 
eater have? 


Um WN FE 
l 
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Question # 18 
What was the sequel to "True Grit?" 


1 - Rooster Cogburn 
2 - Hondo 

3 - Stagecoach 

4 - McQ 

5 - Conqueror 


Question # 19 

Who played John Kennedy in "P.T. 
109"? 

- Cliff Robertson 

- Martin Sheen 

Robert Mitchum 

- Tony Roberts 

- Dale Robertson 


Ui & WN be 


Question # 28 

Dustin Hoffman refuses to wear a 
wristwatch, even in movie roles. 
- False 

- True 


Ulm WN Fe 


Question # 21 
What was T.S. Eliot's first name? 


1 - Thomas 

2 - Theodore 
3 - Taylor 

4 - Stearns 

5 - Thackeray 


Question # 22 
What comic strip takes place in the 
city of Sebastapol? 

1 ~ Peanuts 

2 - Nancy 

3 - Bloom County 

4 - Family Circus 

5 - Blondie 


Question # 23 
Who played the title role in Mel 
Brooks' "Young Frankenstein"? 

1 - Gene Wilder 

2 - Gene Hackman 

3 - Peter Boyle 

4 - Boris Karloff 

5 - Richard Pryor 


Question # 24 
What group sang "Lola," "Apeman," and 
"Come Dancing"? 

1 - Kinks 

2 - Genesis 

3 - Huey Lewis and the News 

4 - Martha and the Vandellas 

5 - Four Lads 


Question # 25 
In "Days of Wine and Roses," Jack 
Lemmon was..... 
1 - A drunk 
- In drag 
- A cop 
- A tourist 
- A gourmet 


Wn & Wd 
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QUIKWIT DATA FILE BACKUP 


If you’ve copied our QUIKWIT questions as data files, or 
if you’ve used the QMAKER program to create additional 
QUIKWIT data files of your own, you’ll probably want to 
create backup copies of those files you’ve worked so hard 
on. It’s always a good idea to back up all your files on 
separate diskettes or tapes. You can do this easily for any 
program files that you have created. To copy sequential data 
files like the ones used in QUIKWIT, however, you have to 
use a special utility program such as the one we provide. The 
program, called SEQCOPY, copies a sequential data file 
from one diskette or cassette to another. The program is 
provided on diskette to those of you who’ve purchased our 
Mind Moves software package. This program’s use is 
referred to in Appendix A, the Software Backup and 
Loading Instructions. The program is listed below, and its 
use by those of you who don’t have the dilithium software 
is explained. Don’t forget to save the SEQCOPY program 
once you’ve typed it in. The program as listed is for use with 
a disk drive system. The few changes you'll have to make 
from the program as listed in order to use it with a cassette 
system are explained following the Cassette-Based System 
subheading. 

The program is listed in lowercase text mode. Get your 
computer into this mode before typing in the program. To 
do this, type in this statement: 


PRINT CHR$(14) [RETURN] 


SEQCOPY is easy to use. It begins by asking you the name 
of the source file. This is the file you wish to have copied. 
Then it asks the name of the target file. This is the name you 
wish to call the data file on the new diskette or cassette. 
Typically the two names are identical. 

QUIKWIT has four sequential data files provided with the 
software, and you need to run SEQCOPY four times to copy 
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all of them. Their names are witspo, witgen, witsci, and 
witart, as we explained near the beginning of this appendix. 
When entering these names for SEQCOPY, keep the titles all 
in lowercase and don’t include any punctuation marks. 

After you provide the names, SEQCOPY will tell you to 
put in place the source diskette or cassette (the one with the 
original data file) then to hit a keyboard key to signal you’re 
ready. Next, the program tells you it’s reading the file. When 
it’s done, it indicates how many data records (or lines) it has 
read. 

Next, SEQCOPY requests that you put the target disk or 
cassette in the drive then hit any key. The program writes 
the new copy and indicates when it’s finished. 


Cassette-Based System 


For a cassette system, modify the listed disk version of the 
SEQCOPY program from this appendix with the following 
changes: 


190 print“Hit any key when source tape is in place” 

210 print:print“Reading tape” 

220 n=0:open 5,1,0,n$ 

270 print:print“Hit any key when target tape is in 
place” 

300 open 2,1,2,t$ 


After you load SEQCOPY into your computer, get the two 
tapes ready. One tape has the data files you want to back 
up. This is the source tape. The second is a new tape that 
will receive the copied data files. This is the target tape. 

When you mount the source tape in the cassette drive, be 
sure to position it somewhere before the actual file. If you’re 
not sure where the file is, you can rewind the tape and the 
computer will search for the file. When mounting the target 
tape, make a note of the tape counter. Then you'll know 
exactly where the file is when you use the backup tape later. 
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SEQCOPY Program Listing — 


1080 rem: seqcopy 

116 rem: copyright 1984 dilithium press 

120 rem: by phil feldman and tom rugg 

13@ print chrS$(14);chrS$ (147) 

148 close l:close 2:close 15 

158 dim aS (2000) 

168 input"name of source file";nS 

178 input"name of target file";t$ 

188 print 

198 print"Hit any key when source disk is in place" 
200 get rS:if rS=""_ then 200 

218 print:print"Reading disk" 

220 n=@:open 15,8,15:open 5,8,5,"0:"+nS+",s,r" 
238 n=n+l 

248 input#5,aS$(n) 

250 if st=8 then 2390 

268 close 5:print n;"records read" 

278 print:print"Hit any key when target disk is in place" 
288 get rS:if len(rS)=@ then 28@ 

298 print:print"Writing copy":print 

388 open 2,8,2,"0:"+tS+",s,w" 

318 for q=l ton 

328 print#2,aS(q) 

338 next 

348 close 2:closel5 

350 print"Finished" 

ready. 
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CHECKSUM Program to Check Typing Accuracy 


his appendix explains the use of the CHECKSUM 

program, which should be very useful to you in finding 
errors in your typing of the programs. It uses a pretty simple 
technique known as a checksum (or hash total or check 
total, among other names). You need to have a disk on your 
system to use this program. We won’t go into a lengthy 
explanation of checksums, but the concept is simple. 
Suppose someone writes down a column of numbers and 
their sum. (Let’s say 10 numbers, each of which is six digits 
long.) Suppose your job (don’t ask us why) is to key these 10 
numbers into an adding machine and have the machine 
come up with the same sum. You do this, being moderately 
careful to hit all the keys correctly. When the sum comes 
out, you discover either that it is the same (in which case 
you are reasonably confident that you hit all the right keys) 
or that it is different (in which case you are quite confident 
that you miskeyed one or more numbers). 

It’s possible, of course, that the same sum could be created 
in spite of certain types of keying errors. Not too likely, 
depending on your keying ability, but possible. But it’s 
almost certain that different sums mean your 10 numbers 
weren’t the same as the original 10. We say almost because 
of the chance that the sum of the original 10 numbers was 
wrong. 

In any event, this approach is the same one taken with 
checksums for the programs in this book. The program that 
we wrote for this appendix looks through each set of 10 
program lines of the program file you have saved on disk, 
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adding up a checksum using the numerical representation of 
the BASIC program. It isn’t important exactly what the 

numbers mean. What is important is that you can run this 
same program to check that the checksum for each of your 
10 typed lines matches with the checksum we found in our 
original programs. If you find a mismatch, you have focused 
on a group of 10 program lines to search for typing errors. 


1. 


HOW TO USE THE CHECKSUM PROGRAM 


Enter the command NEW to erase any program from 
the computer’s memory, and carefully type in the 
CHECKSUM program shown in this appendix. Save it 
on disk. 


. Type NEW again. Now type in one of the programs 


shown in the six chapters of this book and save it on 
disk, as explained in the How To Use This Book section 
at the front of the book. 


. Load the CHECKSUM program from disk into the 


computer’s memory with this command: 


LOAD*“CHECKSUM”,8 


Now type RUN and press [RETURN] to run the 
CHECKSUM program. When it asks for the name of the 
file to check, respond with the name of the program file 
you saved (e.g., VERTIGO3). A good idea is to start by 
checking the CHECKSUM program itself, although it 
may not run properly if you made severe typing errors. 
If it does run properly, you’ll know you typed it right. 


. Compare the checksum numbers shown on the screen 


(for your typing efforts) with the checksum numbers for 
the same program that are shown in this appendix. Note 
the numbers of any groups of line numbers that have a 
checksum figure in the appendix different from the one 
shown on the screen. It will take anywhere from one to 
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five minutes to display all the checksum numbers for a 
program, depending on how long it is. 


. If the line number ranges themselves don’t match, you 
have either omitted one or more lines when typing the 
program, or you have typed extra lines. For example, if 
the book shows a checksum for lines 100 to 190, but 
your screen shows the lines 100 to 200, you left out a 
line somewhere in the 100 to 190 range. The 
CHECKSUM program simply starts with the first line 
number it finds (which should be 100 for all the 
programs in this book) and calculates a checksum 
number for each group of 10 lines. 


. Once you have noted all the ranges with checksum 
differences, LOAD the program being checked and use 
the LIST command to list each of those line ranges on 
the screen (or your printer). For example, use the 
command: 


LIST 100-190 


Carefully check those 10 lines against the same 10 
lines printed in the book, looking for typing errors in 
your version. Correct the error(s) and go on to the next 
group of lines with a checksum difference. When done 
with all of them, SAVE the program on disk with a new 
name, go back to step 3 and run CHECKSUM again to 
test your newly saved program file. 


. When the checksums all match, there’s a very good 
chance you have caught all your important typing 
errors. Certain types of typing differences will not be 
caught, however. 

First, we intentionally did not include blank spaces in 
the checksum total. This is because blanks are optional 
in most parts of programs, and we included them in ours 
only for easier readability. If you prefer not to type 
them, fine. Omitting blank spaces or typing extra ones 
will not change the checksum numbers. However, this 
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means it’s up to you to be sure you type the right 
number of spaces when it does matter — between 
quotation marks and in DATA statements. 

Second, certain typing errors will not be caught by 
this checksum method. If a line says “A=B” in it, and 
you type “B=A” instead, it will not be caught because 
the sums will be the same. Of course, if you type “A=C” 
or “A+B” or “A/B” or many other things, they will be 
caught. 


PROGRAM LISTING 


1890 REM: CHECKSUM 

11@ REM: COPYRIGHT 1984 DILITHIUM PRESS 

120 REM: BY TOM RUGG AND PHIL FELDMAN 

13@ NL=1@0:PRINT CHRS (142) ;CHRS (147) ;TAB(15) ; "CHECKSUM" 
148 CLOSE 5:CLOSE 15 

15@ PRINT: PRINT"NAME OF FILE TO CHECK (OR 'QUIT')?" 


160 NS=""{INPUT NS: IF NS="QUIT" THEN END 
178 IF LEN(NS$)=@8 THEN 15@ 
180 PRINT 


198 PRINT"PRESS A KEY WHEN DISK IS IN PLACE" 
200 GET AS:IF LEN(AS)=@0 THEN 200 

218 PRINT: PRINT"READING DISK":PRINT 

220 OPEN 15,8,15:OPEN 5,8,5,"@0:"4+NS+",P,R" 
230 INPUT#15,AS,BS,CS,DS 

240 IF VAL(AS)=@ THEN 310 

250 IF VAL(AS)<>62 THEN 28@ 

268 PRINT"ERROR - NO SUCH FILE NAME ON DISK" 
270 PRINT:GOTO 14@ 

280 PRINT"**** DISK ERROR ****"spRINT 

298 PRINT"DOS ERROR MESSAGE NO. ";AS 

300 PRINT BS:GOTO 49@4 

318 GET#5,AS,BS 

320 GET#5,AS,BS 

330 IF LEN(AS)=@ AND LEN(BS)=@ THEN 46@ 

348 GET#5,AS,BS:AS=AS+CHRS (@) :BS=BS+CHRS (@) 
358 CL=ASC(AS)+256*ASC(BS):IF SL=@ THEN SL=CL 
368 GET#5,AS:IF LEN(AS)=@ THEN 400 

37@ A=ASC(AS):IF A=32 THEN 3990 

380 CS=CS+A 

398 GOTO 3690 

400 LC=LCt+l:IF LC>=NL THEN 4280 

418 GOTO 329 

420 IF LS=@ THEN GOSUB 518 

438 GOSUB 58@0:LS=LS+1 

440 IF LS>=28 THEN GOSUB 54@ 
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45@ CS=0:LC=0:SL=0:GOTO 329 

468 IF CS=@ THEN 4890 

470 GOSUB 58@@ 

480 PRINT"GRAND TOTAL =";GT 

498 CLOSE 5:CLOSE15: PRINT: END 

508 GT=GT+CS:PRINT SL; "TO";CL;TAB(15) ;CS: RETURN 
510 PRINT:PRINT"FILE NAME=";NS:PRINT 

528 PRINT"LINE NUMBERS";TAB(15); "CHECKSUM" 
530 RETURN 

548 PRINT"PRESS A KEY TO GO ON": 

550 FOR J=1 TO 10:GET AS:NEXT 

560 GET AS:IF LEN(AS)=@ THEN 5690 

570 LS=@:PRINT: RETURN 


READY. 


CHECKSUM DATA FOR THE PROGRAMS 


FILE NAME=AEROJAM 3808 TO 3898 13046 
31868 TO 3196 13075 

LINE NUMBERS CHECKSUM 3288 TO 3298 17795 
1@8 TO 198 10781 33800 TO 3398 21745 
208 TO 29@ ZS 3408 TO 34990 LIZI2 
308 TO 398 25341 35808 TO 3590 16325 
400 TO 498 23256 9998 TO 9999 128 
508 TO 59@ 16678 GRAND TOTAL = 568558 
608 TO 696 12053 
7808 TO 790 Pk 2 
800 TO 89@ 21742 FILE NAME=ESCAPADE 
988 TO 990 17198 
18000 TO 109@ 21873 LINE NUMBERS CHECKSUM 
1108 TO 1199 18899 188 TO 198 11241 
1208 TO 1298 19730 208 TO 290 9667 
1300 TO 1398 28705 308 TO 390 13622 
1488 TO 1498 18735 408 TO 498 11797 
1508 TO 1598 13222 508 TO 599 17817 
1698 TO 1699 13331 608 TO 698 11497 
17868 TO 1798 14111 768 TO 79@ L276 
1880 TO 1898 14270 800 TO 896 12425 
1988 TO 1996 L6157 988 TO 998 15645 
2000 TO 2899 13938 10688 TO 18098 LS d23 
2108 TO 2199 13140 1188 TO 1198 L275 7 
2288 TO 2298 13619 1208 TO 1298 16129 
2300 TO 2396 13782 13098 TO 13998 17289 
2408 TO 2490 136390 1400 TO 1498 15486 
2508 TO 2598 12366 1588 TO 15998 118981 
2608 TO 2696 12646 1608 TO 1698 8879 
2708 TO 2799 18236 1788 TO 1798 15064 
2800 TO 2898 13455 1800 TO 18998 16696 
29098 TO 2998 15963 1988 TO 19998 13867 
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1800 
1109 
1200 
1300 
1400 
1560 
1600 
1788 
18980 
190@ 
2000 
21080 
2200 
2300 
2400 
2509 
2600 
2700 
2800 
2980 
3000 
3180 
3200 
3380 
3498 


TO 
TO 


2098 
2198 
2298 
2390 
2490 
2596 
2696 
2790 
2890 
2990 
3098 
9999 
TAL = 
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19453 
21543 
24858 
23139 
26613 
29527 
23759 
15742 
18192 
11664 
11597 
4327 


484193 


NAME=HOTSHOT 


NUMBERS 


TO 
TO 
TO 
TO 


198 
290 
399 
49@ 
59@ 
699 
790 
899 
999 
10690 
1190 
1296 
1390 
1496 
1596 
1690 
1790 
1899 
1996 
2099 
2190 
2290 
2390 
249G 
2596 
2690 
2790 
2896 
2990 
3090 
3196 
3298 
3398 
3498 


19242 
29857 
20089 
20997 
26861 
27752 
L956 
22256 
18693 
15239 
178624 
19731 
22079 
13834 
16807 
15489 
12147 
15916 
16496 
20029 
17783 
15147 
27324 
24097 
18785 
18228 
16531 
17880 
8936 

14975 
LSS) 
16896 
15109 
14655 


v 


L 


CHECKSUM 


G 
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3508 TO 3598 
9998 TO 9998 
GRAND TOTAL = 


ILE 


INE 

10@ 

200 

388 

400 

588 

600 

709 

800 

98 

1000 
1180 
1200 
1300 
1409 
1500 
1600 
1709 
1869 
1900 
2009 
2100 
2200 
2300 
2400 
2500 
2600 
2/700 
2800 
2900 
3000 
3100 
3209 
3300 
3400 
35068 
3600 
3780 
3800 
3900 
4000 
4100 
4209 
RAND 


11999 
128 


640569 


NAME=QUIKWIT 


NUMBERS 


TO 


TO 
TO 


198 
290 
390 
49@ 
59@ 
69 
79@ 
890 
999 
1890 
119@ 
1298 
1399 
1490 
159@ 
1699 
1790 
1898 
1998 
2090 
2190 
2290 
2390 
2490 
2598 
2690 
2790 
2890 
2996 
3690 
3190 
3298 
3396 
3498 
3596 
3698 
3790 
3896 
3990 
4090 
4190 
9998 
TAL = 


CHECKSUM 


13857 
12105 
Lo o3 
14941 
12463 
19269 
12395 
13931 
18978 
13843 
13181 
L275] 
16948 
14794 
15788 
15787 
17642 
16498 
17639 
20783 
16412 
L294 
14658 


5419 


ShioSt 
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FILE NAME=QUIKWORD 5@8 TO 590 13129 
600 TO 698 14836 
LINE NUMBERS CHECKSUM 708 TO 790 11765 
168 TO 198 148652 888 TO 89@ 15749 
208 TO 298 12633 988 TO 998 9805 
308 TO 399 13081 1888 TO 1098 7845 
400 TO 499 12685 1108 TO 11990 9626 
500 TO 598 L2229 1208 TO 129@ 9267 
600 TO 698 11716 1380 TO 1398 18645 
708 TO 790 14359 1408 TO 1498 7691 
888 TO 890 13004 1588 TO 1598 7879 
988 TO 99G 12833 1608 TO 1698 16758 
1088 TO 1098 8772 1786 TO 1798 876G 
1198 TO 1198 16297 1800 TO 1898 12862 
1208 TO 1298 17568 1988 TO 19998 15311 
1308 TO 1398 ESOL 2008 TO 2090 13456 
1408 TO 1498 11863 2108 TO 2190 111@2 
1588 TO 1598 10017 2200 TO 2290 13064 
1608 TO 1690 1480@ 2300 TO 23986 11877 
1780 TO 1798 106982 2400 TO 2498 1533-7 
1808 TO 18990 LZ2259 2588 TO 2590 23917 
1988 TO 1999 12561 2600 TO 2699 LL 39 
2000 TO 2098 18758 2780 TO 2798 16073 
2188 TO 2190 14420 2888 TO 999@ 3375 
2200 TO 2296 T2873 GRAND TOTAL = 342451 


2300 TO 2398 fea ae 
2400 TO 2498 9571 
2508 TO 2598 18660 


2608 TO 2690 12081 FILE NAME=QMAKER 
2788 TO 2790 8500 
2808 TO 28990 17297 LINE NUMBERS CHECKSUM 
2908 TO 2999 18918 168 TO 198 14252 
3088 TO 3890 8414 280 TO 299 15675 
3108 TO 3199 10828 388 TO 390 14720 
3208 TO 3290 11943 490 TO 499 12289 
3308 TO 3390 149028 588 TO 5990 14920 
3400 TO 3499 14813 689 TO 698 8864 
3508 TO 3590 1048¢ 788 TO 798 13846 
3600 TO 3690 13314 888 TO 8998 14681 
3708 TO 3798 1248 9098 TO 998 11258 
3800 TO 3890 18229 1888 TO 1898 23330 
999g TO 999g 128 1108 TO 115@ 6646 
GRAND TOTAL = 475648 GRAND TOTAL = 158481 
FILE NAME=VERTIGO FILE NAME=SEQCOPY 
LINE NUMBERS CHECKSUM LINE NUMBERS CHECKSUM 
198 TO 199 16941 198 TO 199 13251 
208 TO 299 14749 200 TO 290 14299 
388 TO 396 18983 308 TO 356 4190 
400 TO 499 9513 GRAND TOTAL = 31658 
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FILE NAME=CHECKSUM 


LINE NUMBERS CHECKSUM 


1898 TO 1990 ES 719 
208 TO 29@ 13805 
388 TO 390 E21 SZ 
408 TO 496 18288 
508 TO 570 11098 


GRAND TOTAL = 63572 
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ERRATA OFFER 


N: matter how thoroughly we test our programs, and no 
matter how carefully our editors check things out, 
there is always the possibility of errors creeping into the 
final product. Our experience has shown that the over- 
whelming majority of complaints from readers about 
so-called errors in our programs are not program errors at 
all. They are typing errors by the reader. So please, before 
you send that irate letter claiming that one of the programs 
won't work (and making unkind remarks about our 
ancestries), take the time to read the How To Use This Book 
section in the front of the book. The probability is extremely 
high that you have made one or more typing errors. 

But, as we said, errors in the programs and the text of the 
book can happen. If you are firmly convinced that you have 
made no typing errors in a program, but you still can’t get 
it to work, take these steps: 


1. Borrow a printer, if necessary, and make a printed 
listing of the program as you typed it. This will be easier 
for you to recheck (one more time), and it allows us to 
verify your typing accuracy. 


2. Write down a detailed description of the problem. 
What’s the first thing that goes wrong? What is the 
exact error message, if any? Exactly what did you 
respond to each option and question, and what was the 
result you saw on the screen? If possible, we would like 
to see what the current values are for the main variables 
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used in the line with the error. If variables J and K are 
used in the line, enter the command PRINT J,K right 
after the error occurs to see their current values. 


. Send the listing and the description, along with $1 and 
a self-addressed stamped envelope, to the address 
below. We hate to ask for money for this, but it has 
worked out to be the best compromise that gives readers 
with problems somewhere to go for help, while reducing 
the volume of mail that otherwise would come from 
people who haven’t checked their typing. We’ll send you 
a list of errata (corrections to errors), if any, and may be 
able to help you with your problem even if it is not a 
result of an error in the book. 


Errata — C-64 Mind Moves 
Software Support 

dilithium Press 

8285 S.W. Nimbus, Suite 151 
Beaverton, Oregon 97005-6401 
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Looking for strategy games that provide both challenge and entertainment 
on your Commodore 64? 

Here are six intriguing games you can play with a friend, your computer, or all 
by yourself! A potpourri of intelligent games for the entire family, Mind Moves 
includes: 


* AEROJAM: A resource management game. Try to control the arrival and 
departure of strange spacecraft in an unfamiliar world, 

¢ ESCAPADE: An adventure game. Can you explore the mysteries and survive 
the dangers, and still manage to remove the treasures? 

* HOTSHOT: A cushion billiards simulation. Line up your shots and try to outscore 
your opponents. 

¢ QUICKWIT: A trivia/quiz game. Answer multiple choice questions faster than 
your opponent. 

* QUICKWORD: A fascinating twist to the classic game of anagrams. 
Unscramble your opponent's word list faster than they can unscramble yours. 

¢ VERTIGO: A dizzying board game. The first player to line up the helium 

balloons wins. 


This book is full of clearly explained instructions and examples to help you 
begin playing your mind moving games right away! 

You can either buy the book/software package and have a disk with the 
programs ready to run on your Commodore 64, or you can type in the programs 
yourself for disk or cassette. 
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Programs run on a Commodore 64 computer 
with 64K and a color or black-and-white TV or 


monitor. 
dP dilithium Press 
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